vb sql连接的一段代码，本人菜鸟，运行不出来，需要修改 高人帮一下忙，报错是数据库连接错误

Question

Public strID As String

Public con As New ADODB.Connection
Public Declare Function GetPrivateProfileString Lib "Kernel32" Alias "GetPrivateProfileStringA" (ByVal lpApplicationName As String, lpKeyName As Any, ByVal lpDefault As String, ByVal lpRetunedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long
Public Sub main()
If DataBaseCon = True Then FrmLogin.Show
End Sub

Function GetFromINI(AppName As String, KeyName As String, FileName As String) As String
Dim RetStr As String
RetStr = String(255, Chr(0))
GetFromINI = Left(RetStr, GetPrivateProfileString(AppName, ByVal KeyName, "", RetStr, Len(RetStr), FileName))
End Function
Public Function DataBaseCon() As Boolean

Dim strCon As String
Dim strID As String
Dim strPwd As String
Dim strServer As String
strServer = GetFromINI("数据库配置", "localhost", App.Path & "\conf.ini")
strID = GetFromINI("数据库配置", "sa", App.Path & "\conf.ini")
strPwd = GetFromINI("数据库配置", "ljs", App.Path & "\conf.ini")
strCon = "Provider=SQLOLEDB.1;Persist Security Info=False;uid=" & strID & ";pwd=" & strPwd & ";Initial Catalog=supermarket;Data Source=" & strServer & ""

con.CursorLocation = adUseClient

On Error GoTo ErrCon '将此语句注释掉，能更好地调试找错误
con.Open strCon
DataBaseCon = True
Exit Function
ErrCon:
MsgBox "数据连接错误", vbCritical, "连接错误"
DataBaseCon = False
End Function
希望对每句的功能进行一下标注 谢谢

Answer 1

你检查 App.Path 下的conf.ini 文件是否存在，不存在则创建，并且conf.ini文件的内容符合以下：
[数据库配置]
localhost=ServerName
sa=sa
ljs=ljs
‘注意ServerName 改你服务器的名字，ljs改你数据库的密码，还有你的数据库名是否为supermarket