Visual Basic - como conectar una base de datos hecha en sql serve

como puedo conectar una base de datos que esta hecha en sql server 2000 mediante codigo atraves de visual basic 6.0

Prueba a esto:

Dim sConnectionString As String
'Get Database Connection
sConnectionString = "DSN=basedatos;UID=sa;PWD=;"
DBConn.ConnectionString = sConnectionString
DBConn.CommandTimeout = 0
DBConn.IsolationLevel = adXactChaos
DBConn.Open