帮忙改正下面vb连接数据库的问题吧

Private Sub Form_Load()
On Error GoTo lin:
' InIpath = App.Path + "\Server.ini"
' If Dir(InIpath) = "" Then
' CreateInI "Server", "sa", "leng", "question"
' End If
' Dim SName As String, Lname As String, PW As String, DatabaseName As String
''读INI
' Dim ServerName As String * 20
' Dim LoginName As String * 20
' Dim Pass As String * 20
' Dim DbName As String * 20
' Dim Result As Long
'
' Result = GetPrivateProfileString("Server", "ServerName", "Server", ServerName, Len(ServerName), InIpath)
' TXTInI = ServerName
' SName = TXTInI
' Result = GetPrivateProfileString("Server", "LoginName", "sa", LoginName, Len(LoginName), InIpath)
' TXTInI = LoginName
' Lname = TXTInI
' Result

vb连接数据库的 VB连接数据库的问题 vb连接数据库的问题 VB的问题！连接数据库！ VB数据库的连接问题 帮忙完成-vb连接access数据库 关于VB连接操作数据库的问题 关于VB连接SQL数据库的问题 VB连接SQLSERVER数据库的一个问题 vb中连接数据库的问题