Hola, si buscas en internet algo facil como esto lo vas a encontrar en 5 minutos, en serio hay mucha info de base de datos en internet.
Imports System.Data.SqlClient
Public Class Form1
Dim vConexion As SqlConnection = Nothing
Private Sub Desconectar()
If Me.vConexion.State = Data.ConnectionState.Open Then
Me.vConexion.Close()
End If
End Sub
Private Sub Conectar()
If Not Me.vConexion Is Nothing Then
If Me.vConexion.State = Data.ConnectionState.Open Then
MsgBox("La conexión ya se encuentra abierta.")
End If
End If
Try
If Me.vConexion Is Nothing Then
Me.vConexion = New SqlConnection
Me.vConexion.ConnectionString = "server=TUSERVIDOR;initial catalog=TUBASE;uid=TUUSUARIO;pwd=TUPASSWORD;"
End If
Me.vConexion.Open()
Catch ex As Exception
MsgBox("Error al conectarse: " & ex.Message)
End Try
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Conectar()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call Desconectar()
End Sub
End Class
ahi te pase un codigo para conectar y desconectar de sql server, es lo mas simple que hay, para mysq es lo mismo pero con los objetos de mysql.