

'tbcadena es un textbox donde se va ingresar el nombre del servidor mas otro atributo que lo hice coincidir con el nombre del servidor que tambien necesita la cadena y se las paso por una variable que guardo en un .txt, pero bue eso no importa, anda bien.
Bartolo.GetBartolo.setServer(tbcadena.Text, tbcadena.Text)
'aca lo que hago es probar la conexion con sCon.Open() antes de que llegue al aplication blocks, hago una especia de testeo de conexion previa, pero el problema es que muestro el msg de error pero no le puede devolver el control al usuario
Try
Dim sCon As SqlConnection = New SqlConnection
sCon.Open()
Catch ex As SqlException
Dim sError As SqlError
For Each sError In ex.Errors
Next
Select Case sError.Number
Case 17
MessageBox.Show("El servidor '" + tbcadena.Text + "' no existe, por favor verifique el nombre")
Case 4060 'Cannot open database requested in login '%.*ls'. Login fails.
MessageBox.Show("El usuario no tiene permisos para acceder a la base de datos '" + tbcadena.Text + "'")
Case Else
MessageBox.Show(sError.Message)
End Select
MessageBox.Show(ex.Message)
End Try