Try
            conn.Open()
            Dim res As Integer = cmd.ExecuteNonQuery()
        Catch ex As OleDbException
            MsgBox("Sorry, little problem here " & ex.ToString())
        Finally
            conn.Close()
        End Try

Those people who think they know everything are a great annoyance to those of us who do - Isaac Asimov