Visual Basic - Conectarse a SQL Server 2008

Hola.

Estoy intentando hacer una conexion a SQL Server en VB6 que funcione en cualquier computadora que se instale, es decir sin importar el nombre de la computadora. Para ello hice lo siguiente pero no esta funcionando, tal vez me puedan ayudar diciendome que hago mal o si hay alguna otra forma de hacer lo que pretendo, desde ya muchas gracias:

Public usuario as String

SubMain()

usuario=Environ("computername")+"\sqlexpress"

Set cn = New ADODB.Connection
cn.CursorLocation = adUseClient
cn.ConnectionString = "Provider=SQLNCLI10;Server='" & usuario & "';Database=DBO_mm;Uid=sa; Pwd=xxxx;"
Exit Sub

End Sub

Visita :

http://www.connectionstrings.com/sql-server/

Yo tengo una con ODBC y funciona excelente ... solo hay que copiar el ODBC o crearlo si lo necesitas me avisas.

Hazlo de la siguiente manera
1. abre tu proyecto
2. vas a la pestaña proyecto y seleccionas agregar data environment, te aparecera una carpeta llamada diseñadores dentro de esta, un objeto llmado DataEnvironmet1 y dentro de este, otro objeto llamadao Conection1
3. le das boton derecho en el objeto Conection1 y seleccionas propiedades y te aparece la ventana de vinculo de datos
4 sleccionas Sql Server native client 10.(esto es en la pestaña de proveedor)
5. en la pestaña de conexion selecionas el nombre del servidor (yo a todos lo llamo servidor y nada cambio) usas lel nivel de integridad windows y selecionas la base de datos a utilizar luego haces el test de conexion y listo
6. le das boton derecho en conection1 y selecionas agregar comando y haces la conexion con las tablas y vistas
7. las invocas de tus programas

CRISTO TE AMA

si neceistas algun ejemplo escribeme a mi correo o llamame al 058.0424.620.85.64

Mi nombre es Hector Moran