bueno puedes algo ya pille, es un codigo ke al hacer click en el boton te dice el nombre del computador:
Private Declare Function GetComputerName _
Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As _
Long) As Long
'esto va en el evento click del boton
Private Sub Command1_Click()
Dim sEquipo As String * 255
GetComputerName sEquipo, 255
MsgBox sEquipo
End Sub
bueno aludiendo a lo ke pedia yo:
Cnn.ConnectionString = "driver={SQL Server};server=guachalin;uid=sa;pwd=;database=mari na"
de ke forma tengo ke asignarle la variable "sEquipo" a server en la linea ke puse anteriormente....
una manito porfas