Visual Basic - Conexion VB6 con SQL Server 2000

No se si por ahi ya alguien a programado visual basic 6 con sql server 2000
ayudenme con la cadena de conexion a la base de datos

esta es la cadena de código que utilizo en un modulo:

' Abrir conexión con SQL
Public CE As Connection
' si da el error 3001 es que falta declarar la conexion
Sub AbrirConexion()
Set CE = New Connection
CE.Provider = "SQLOLEDB"
CE.ConnectionString = "User ID = sa; Password=;" & "data Source = SERVIDORBD;" & "Initial Catalog=BASE_DATOS"
CE.Open
End Sub

y en el Load del Form:

AbrirConexion


salu2 y suerte

Estas preguntas de re-mi.er....da, porqué no buscan en la red, hay ejemplos y muchas cosas más