vb2010 Funcion para actualizar nuestra base de datos

Función para hacer un INSERT, UPDATE y un DELETE a nuestra base de datos desde visual basic 2010.

'Funcion para actualizar los registros en la tabla con mensaje de finalización
    'Insert Into
    'Update
    'Delete
    Public Sub updateRegistrosC(ByVal mySQL As String)
        Dim cmd As New Odbc.OdbcCommand
        Try
            Cursor.Current = Cursors.WaitCursor
            cmd = New OdbcCommand(mySQL, conn)
            Dim x As Integer
            'Ejecutamos la sentencia solicitada
            x = cmd.ExecuteNonQuery()
            'Mostramos mensaje
            MsgBox("Los información se actualizó correctamente", MsgBoxStyle.Information, "Costeo CIC")
            Cursor.Current = Cursors.Default
        Catch ex As Exception
            MsgBox(ex.Message)
        Finally
            cmd.Dispose()
        End Try
    End Sub

VB2010 Conectarse a una BD via DNS o DSN

Funcion para conectarse a Base de datos, cualquiera, via DNS desde visual basic 2010.

'Funcion para conectarsea base de datos DB2
    Public Function Conectar(ByVal Servidor As String, ByVal Usuario As String, ByVal Password As String) As Boolean
        cnString = "DSN=SPEED;Uid=" & Usuario & ";Pwd=" & Password & ";"
        conn = New OdbcConnection(cnString)
        Try
            Cursor.Current = Cursors.WaitCursor
            'Aperturamos conexión
            conn.Open()
            If conn.State = ConnectionState.Open Then Conectar = True Else Conectar = False
            Cursor.Current = Cursors.Default
        Catch ex As Odbc.OdbcException
            MessageBox.Show("Error: " & ex.ToString & vbCrLf)
        End Try
    End Function