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_Initialize()
On Error GoTo errlabel
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient 'is this line relevant? in which Context?
db.Open "PROVIDER=MSDASQL;dsn=KWTSYS;uid=root;pwd=;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "", db, adOpenStatic, adLockOptimistic

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_Initialize()
On Error GoTo errlabel
Dim db As Connection
Set db = New Connection
db.CursorLocation = adUseClient 'is this line relevant? in which Context?
db.Open "PROVIDER=MSDASQL;dsn=KWTSYS;uid=root;pwd=;"

Set adoPrimaryRS = New Recordset
adoPrimaryRS.Open "", db, adOpenStatic, adLockOptimistic

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