Cita:
Iniciado por jquevedo 
te adjunto el codigo
Dim conecta1 As String = "Data Source=200.48.253.143,1433;Network Library=DBMSSOCN;Initial Catalog=agrodoral nuevo;Integrated Security=SSPI;Connect Timeout=30;user id=" & txtusuario.Text & ";Password=" & txtpassword.Text
Que tal jquevedo, y ¿también funcionara en SQL Server 2000?
Gracias