Try
            Con.Open()
 
            Dim cmd As OleDbCommand = Con.CreateCommand
 
            Dim INSERTString As String = _
            "INSERT INTO " & _
                "Test " & _
                    "(Auto, Marke, Hersteller, Vertrieb) " & _
            "VALUES " & _
                "(@Auto, @Marke, @Hersteller, @Vertrieb)"
 
            cmd.CommandText = INSERTString
 
 
 
            cmd.Parameters.AddWithValue("@Auto", TextBox1.Text)
 
            cmd.Parameters.AddWithValue("@Marke", TextBox2.Text)
            cmd.Parameters.AddWithValue("@Hersteller", TextBox3.Text)
 
            cmd.Parameters.AddWithValue("@Vertrieb", TextBox4.Text)
 
            cmd.ExecuteNonQuery()
 
            Me.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            Con.Close()
        End Try