Visual Basic插入到一个mysql数据库的多个表中

你好，我想知道是否有可能一键单击将相同的数据发送到一个数据库但有多个表。因为在我目前的情况下，我只能将数据输入到两者中的第一个。这是该按钮的完整代码：

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        MsgBox("Meld enige gebreken bij je leraar samen de naam van de computer (deze staat op de stikker die op het apparaat te vinden is)")

    Dim myHost As String = Dns.GetHostName
    Dim ipEntry As IPHostEntry = Dns.GetHostEntry(myHost)
    Dim ip As String = ""
    Dim nee As String
    Dim user As String
    nee = "nee"

    dbconn = New MySqlConnection("Data Source=172.17.80.153;user id=connectinguser;password=123456;database=vbtest;")
    Try
        dbconn.Open()
    Catch ex As Exception
        MsgBox("Error in connection, please check Database and connection server.")
    End Try

    For Each tmpIpAddress As IPAddress In ipEntry.AddressList
        If tmpIpAddress.AddressFamily = Sockets.AddressFamily.InterNetwork Then
            Dim ipAddress As String = tmpIpAddress.ToString
            ip = ipAddress
            Exit For
        End If
    Next



    If ip = "" Then
        Throw New Exception("No 10. IP found!")
    End If

    If TypeOf My.User.CurrentPrincipal Is System.Security.Principal.WindowsPrincipal Then
        ' The application is using Windows authentication.
        ' The name format is DOMAIN\USERNAME.
        Dim parts() As String = Split(My.User.Name, "\")
        Dim username As String = parts(1)

        Dim uname As String = My.User.Name

        uname = uname.Remove(0, 10)
        user = uname

    End If

    sql = "INSERT INTO tbl_nee(Gebruikersnaam,Computernaam,IPAddress, Keuze) VALUES('" & user & "', '" & My.Computer.Name & "', '" & ip & "', '" & nee & "' )"

    sql = "INSERT INTO tbl_alles(Gebruikersnaam,Computernaam,IPAddress, Keuze) VALUES('" & user & "', '" & My.Computer.Name & "', '" & ip & "', '" & nee & "' )"



    Try
        dbcomm = New MySqlCommand(sql, dbconn)
        dbread = dbcomm.ExecuteReader()
        dbread.Close()
    Catch ex As Exception
        MsgBox("Error in saving to Database. Error is :" & ex.Message)
        dbread.Close()
        Exit Sub
    End Try

    Me.Close()
End Sub

这有点混乱，但是我不是一个好的编码员，因此发现各种东西都能使它工作。