Visual Basic - error conexion remota

buenas , soy estudiante y me propongo hacer un trabajo para mi clase sobre impulso empresarial, para lo cual es nesesario acceder a una base de atos desde un servidor de la escuela, pero en el proseso no me funciona la conexion remota,mi duda es si tengo bien el codigo de un boton en visual basic por que , al tratar de conectar a un servidor de forma remota, me manda error , pongo el codigo que uso , y si me pueden orientar para verificar si estor en un error.

Esto es un ejemplo de como quiero conectar un login pero el resultado es el mismo.
se agradece ayuda.

Dim cone As New SqlClient.SqlConnection
Dim coma As New SqlClient.SqlCommand
Dim adap As New SqlClient.SqlDataAdapter
Dim data As New DataSet

cone.ConnectionString = "Data Source=.\SQLExpress;Initial Catalog=Emprendedores;Integrated Security=true;"
coma.CommandText = "Select * from Usuarios where Usuario ='" & TextBox1.Text & "' And Contraseña ='" & MTB.Text & "';"
cone.Open()

coma.Connection = cone
adap.SelectCommand = coma
adap.Fill(data, "0")

Dim count = data.Tables(0).Rows.Count

If count > 0 Then
MsgBox("Bienvenido", MsgBoxStyle.Information)
Principal.Show()
Me.Hide()
Else
MsgBox("USuario u/o contraseña Erroneos, Intentelo otra vez", MsgBoxStyle.Critical)
TextBox1.Clear()
MTB.Clear()
End If
End Sub

en un modulo :

Public AA As ADODB.Connection

'##############

Sub Conectar()

Set AA = New Connection

With AA


AA.Open "driver={SQL Server};" & _
"server=NOMBRE_SERVER;database=BASE_DATOS;uid=USUARIO;pwd=CONTRASEÑA"


End With

End Sub

Después llamas al Conectar desde donde quieras
y para cerrar solo con un AA.Close

* Es la forma en que lo hago en mi lugar de trabajo y 0 problema