MSSQL VB6 CONNECTION STRING SAMPLE

Sample Module for Connection vb6 MSSQL 2008

Public Sub Main()

On Error GoTo ErrorHandler
   
      stmt = "Provider=SQLOLEDB.1;Persist Security Info=true;Initial Catalog=[databasename];
                 user id=[username];PASSWORD=[password];
                 Data Source=[domain name or IP];MultipleActiveResultSets=True;"

    GlobCon.ConnectionString = stmt
    GlobCon.Open
     
    Exit Sub
ErrorHandler:
    MsgBox Err.Description, vbCritical
   
   
End Sub