Que tal, mira así a la salida mas rapida que veo .. seria
Crear un modulo con una funcion la cual podras hacer uso en donde desees.
Por ejemplo
Código:
Module Conexion
Public conectionstring As String
Dim _con As MySqlConnection
Function verificarConexionDB(ByVal _server As String, ByVal _usuario As String, ByVal _pass As String) As Boolean
conectionstring = New String("Server=" & _server & ";" & "User ID=" & _usuario & ";" & "Password=" & _pass & ";")
_con = New MySqlConnection(conectionstring)
Try
_con.Open()
verificarConexionDB = True
Catch ex As Exception
verificarConexionDB = False
End Try
End Function
End Module
Mas o menos, solo te doy la idea ... esa seria tu modulo de conexion y en tu dialog1 donde conectas pues nadamas le mandas los valores de los textbox
Código:
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Try
If verificarConexionDB(TextBox1.Text, TextBox2.Text, TextBox3.Text) = True Then
MsgBox("Conexion exitosa.")
Me.Close()
Form1.Show()
Else
MsgBox("Error. Verificar datos de conexión y volver a intentarlo o contactar al Administrador.")
MsgBox(ex.Message)
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error ....")
End Try
End Sub
y si quieres ver despues la cadena solo MsgBox(conectionstring) te debe de aparecer tanto el server, user y pass ...
Bueno es una posible solución, no digo que sea la mas optima pero ya tu sabrás como adecuarla...
Cualquier duda pues comenta, si no puedo ayudarte alguien mas lo hará.
Saludos.