vb.net - 未処理の例外が発生しました VB ベースのシステムでエラーが発生しました,

Question

学位プロジェクト用に開発している VB システムでこの問題が発生しています。

リストにエラーはありませんが、「アプリケーションで未処理の例外が発生しました。続行をクリックすると、アプリケーションは続行の試みを無視します....」というポップアップ メッセージが表示されます。

ポップアップが表示された後、exe がハングして終了します。

これがコードです。このコードは、管理者に関するいくつかの詳細を受け入れ、それを CQFOS という名前の Microsoft Access DB に adminrecords という名前のテーブルと共に保存することを目的としています。

Imports System.Data.OleDb
Imports System.Configuration

Public Class adminadd

    'must put everytime, global bro
    Dim con As New OleDbConnection
    Dim cmd As New OleDbCommand

    Private Sub addadmin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles addadmin.Click

        Dim TA As New CQFOSDataSet1TableAdapters.adminrecordsTableAdapter
        Dim cmd As New OleDbCommand
        Dim con As New OleDbConnection


        'Dim yourconnection As String = ConfigurationManager.ConnectionStrings("yourConnectionString").ConnectionString()
        Dim yourconnection As String = ConfigurationManager.ConnectionStrings("yourconnectionstring").ConnectionString

        'con = New OleDbConnection(yourconnectionString)
        con = New OleDbConnection(yourconnection)

        cmd.CommandType = CommandType.Text


        Dim connectionString As String = ConfigurationManager.ConnectionStrings("CQFOSConnectionString").ConnectionString
        con = New OleDbConnection(connectionString)

        cmd.CommandType = CommandType.Text


        cmd.CommandText = "INSERT INTO adminrecords (AdminID,Name,DOB,Gender,Address,PhoneNo,Email) VALUES (@AdminID, @Name,@DOB,@Gender,@Address,@PhoneNo,@Email)"

        cmd.Parameters.AddWithValue("@AdminID", adminidtxt.Text)
        cmd.Parameters.AddWithValue("@Name", nametxt.Text)
        cmd.Parameters.AddWithValue("@DOB", dobtxt.Text)
        cmd.Parameters.AddWithValue("@Gender", gendertxt.Text)
        cmd.Parameters.AddWithValue("@Address", addtxt.Text)
        cmd.Parameters.AddWithValue("@PhoneNo", cnotxt.Text)
        cmd.Parameters.AddWithValue("@Email", emailtxt.Text)

        cmd.Connection = con

        Dim RowsAffected As Integer
        con.Open()

        'rowaffected returns the number or row affected
        RowsAffected = cmd.ExecuteNonQuery()

        Dim selectQuery As String = "Select FROM adminrecords"
        If RowsAffected = 1 Then
            MsgBox("New Record is saved.", MsgBoxStyle.OkOnly, "CQFOS")
        End If
        con.Close()

    End Sub

End Class

どんな助けでも大歓迎です。前もって感謝します。