Am a newbie in using connection strings in code.S'one explain relevance of each line

[mcena]

This is the code I wish to have explained what each line stands for. Am using VB6 and MYSQL, Win XP.

Private Sub Class_Initializ e()
On Error GoTo errlabel
Dim db As Connection
Set db = New Connection
db.CursorLocati on = adUseClient 'is this line relevant? in which Context?
db.Open "PROVIDER=MSDAS QL;dsn=KWTSYS;u id=root;pwd=;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Op en "", db, adOpenStatic, adLockOptimisti c

DataMembers.Add "Primary"
Exit Sub
'I understand the rest........... ............... .....
errlabel:
If Err.Number = 2147467259 Then
MsgBox "Cannot connect to the database server,please start MYSQL server", vbCritical, "Connection Error"
Exit Sub
ElseIf Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub

[sashi]

Hi there,

This part of the code simple means to trap error no. "2147467259 ", in VB error no. "0" simple means there is no error at all, the code is written to prompt an error message when "Run time error -2147467259" occurs, hope u understand.. :)

This is the code I wish to have explained what each line stands for. Am using VB6 and MYSQL, Win XP.

Private Sub Class_Initializ e()
On Error GoTo errlabel
Dim db As Connection
Set db = New Connection
db.CursorLocati on = adUseClient 'is this line relevant? in which Context?
db.Open "PROVIDER=MSDAS QL;dsn=KWTSYS;u id=root;pwd=;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Op en "", db, adOpenStatic, adLockOptimisti c

DataMembers.Add "Primary"
Exit Sub
'I understand the rest........... ............... .....
errlabel:
If Err.Number = 2147467259 Then
MsgBox "Cannot connect to the database server,please start MYSQL server", vbCritical, "Connection Error"
Exit Sub
ElseIf Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub