Cita: Try
Dim oconexion As New SqlConnection
oconexion.ConnectionString = "Server=xxxxx;Database=xxxxx;uid=xxxxx;pwd=xxx xx"
'Creamos el adaptador
Me.odataadapter = New SqlDataAdapter("SELECT * FROM Edu_Outlook", oconexion)
'Creamos el commandbuilder
Dim ocommbuild As SqlCommandBuilder = New SqlCommandBuilder(odataadapter)
'Creamos el dataset
Me.odataset = New DataSet
oconexion.Open()
Me.odataadapter.Fill(odataset, "Edu_Outlook")
oconexion.Close()
Catch ex As SqlException
MessageBox.Show(ex.Message)
End Try
La cadena de conexion(y llenado de un dataset) sería asi.Si no te funcionara suena a algo de permisos en la BD,que es un servidor local o remoto? saludoss