Visual Basic - Necesito el codigo de conexion de SQl a vb6

Porfa necito me ayuden con esto. Tengo un examen y no tengo este codigo es urgente porfavor. Ayudenmeeeeeeeeeeeeee

Es un ejemplo simple para conectarse, espero te ayude....

Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim strSQL As String
Private Sub Form_Load()

cn.Provider = "SQLOLEDB.1"
cn.ConnectionString = "Persist Security Info=False;User ID=sa;Pwd=;Initial Catalog=Northwind;Data Source=SMARTPOINT" 'Data source=nombre del servidor, initial catalog es la bd,user id= usuario,pwd password del usuario si lo hay
cn.CommandTimeout = 15
cn.Open
strSQL = "Select * from customers"
Set rs = cn.Execute(strSQL)
While Not rs.EOF = True
Combo1.AddItem rs.Fields(0).Value
rs.MoveNext
Wend
Combo1.Text = Combo1.List(0) 'muestra el primer item
rs.Close
End Sub