Visual Basic.NET - Como crear una clase para mi conexion

Hace rato hice la pregunta de como llenar un combo con datos en mysql, gracias pero la conexcion como la creo yo utilizo la siguiente forma de conectarme
'Establecemos la conexion a la BD

cnn1 = New ADODB.Connection
cnn1.ConnectionString = "DSN=prueba;UID=root;"
'Abrimos la conexion
cnn1.Open()

como puedo crear una clase para conectarme para que funcione en el siguiente codigo ????, espero me entiendan y gracias

Dim objcomando As New SqlClient.SqlCommand
Dim oconectar As New Cconexion
Dim objconexion As SqlClient.SqlConnection
objconexion = oconectar.Conectar
objcomando.Connection = objconexion
objcomando.CommandText = "select * from Y_departamentos"
Dim da As New SqlClient.SqlDataAdapter
Dim dt As New DataTable
da.SelectCommand = objcomando
da.Fill(dt)
da.SelectCommand = objcomando
da.Fill(dt)
cmbdepartamento.Items.Clear()
Dim J As Short
For J = 0 To dt.Rows.Count - 1
cmbdepartamento.Items.Add(dt.Rows(J).Item("descripcion"))
Next