Fehlermeldungen visual Studio 2008

[stroemi2]

Hallo zusammen
ich mache mich gerade daran mich mit basic anzuvertrauen nach einem enorm grossen zeitaufwand fange ich immer mehr freude daran zufinden leider klapt nicht alles und ich bin noch ein totaler anfänger ich hoffe ihr Helft mir ein wenig auf die sprünge :-)
Bei anklicken von cmsNeu kommt immer die fehlermeldung "ungüldige Zeichenfolge in Boolenan ???
und bei ändern klapt es irgentwie auch nicht
kommt Syntax in Update funktion
und noch etwas wie kann ich anstelle einer ListBox einen DataGridView machen programiertechnisch ?
Ich poste euch mal den Code


Public Class Form1
Dim con As New OleDb.OleDbConnection
Dim cmd As New OleDb.OleDbCommand
Dim reader As OleDb.OleDbDataReader
Dim id As New ArrayList

Private Sub frm0802_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=D:\Users\Andy\Documents\Visual Studio 2008\Projects\Adressen\Datenbank.mdb"
cmd.Connection = con
End Sub

Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub cmdneu_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdneu.Click
Dim anzahl As Integer
If txtname.Text = "" Then
MsgBox("Bitte min. einen Namen eingeben")
Exit Sub

End If
Try
con.Open()
cmd.CommandText = _
"insert into Adressen " & _
"(name, vorname, strasse, plz, ort, tel, abteilung, div, beitrag, email )" & _
"values ('" & _
txtname.Text = "' '" & _
txtvorname.Text = " ' '" & _
txtstrasse.Text = "' '" & _
txtplz.Text = "' '" & _
txtort.Text = "' '" & _
txttel.Text = "' '" & _
txtabteilung.Text = "' '" & _
txtnatel.Text = "' '" & _
chkjbeitrag.Checked = "' '" & _
txtemail.Text = "')"

MsgBox(cmd.CommandText)
anzahl = cmd.ExecuteNonQuery()
If anzahl > 0 Then
MsgBox("Es wurde eine Person hinzugefügt")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
AlleSehen()

End Sub

Private Sub cmdsehen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdsehen.Click
AlleSehen()
End Sub
Sub AlleSehen()
Try
con.Open()
cmd.CommandText = "select * from adressen"
Ausgabe()
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()

lblid.Text = ""
txtname.Text = ""
txtvorname.Text = ""
txtstrasse.Text = ""
txtplz.Text = ""
txtort.Text = ""
txttel.Text = ""
txtabteilung.Text = ""
txtnatel.Text = ""
txtemail.Text = ""
chkbeitrag.Text = ""



End Sub

Sub Ausgabe()
reader = cmd.ExecuteReader()
lstallesehen.Items.Clear()
id.Clear()
Do While reader.Read()
lstallesehen.Items.Add(reader("id") & " / " _
& reader("name") & " / " _
& reader("vorname") & " / " _
& reader("strasse") & " / " _
& reader("plz") & " / " _
& reader("ort") & " / " _
& reader("tel") & " / " _
& reader("Abteilung") & " / " _
& reader("Natel") & " / " _
& reader("email") & " / " _
& reader("beitrag"))
id.Add(reader("id"))

Loop
reader.Close()
End Sub

Private Sub lstallesehen_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstallesehen.SelectedIndexChanged
Try
txtname.Clear()
txtvorname.Clear()
con.Open()
cmd.CommandText = "select * from Adressen where ID = " & id(lstallesehen.SelectedIndex)

reader = cmd.ExecuteReader()
reader.Read()

lblid.Text = reader("id")
txtname.Text = reader("name")
txtvorname.Text = reader("vorname")
txtstrasse.Text = reader("strasse")
txtplz.Text = reader("plz")
txtort.Text = reader("ort")
txttel.Text = reader("tel")
txtabteilung.Text = reader("abteilung")
txtemail.Text = reader("EMail")
txtnatel.Text = reader("natel")
chkjbeitrag.Checked = reader("beitrag")
reader.Close()

Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()
End Sub

Private Sub cmdaendern_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdaendern.Click
Dim Name As Integer
If txtname.Text = "" Then
MsgBox("Bitte einen Datensatz auswählen ")
Exit Sub
End If

Try
con.Open()
cmd.CommandText = "update Adressen set " & _
"name = '" & txtname.Text & "', " & _
"vorname = '" & txtvorname.Text & "', " & _
"strasse = '" & txtstrasse.Text & "', " & _
"plz = '" & txtplz.Text & "', " & _
"ort = '" & txtort.Text & "', " & _
"tel = '" & txttel.Text & "', " & _
"abteilung = '" & txtabteilung.Text & "', " & _
"natel = '" & txtnatel.Text & "', " & _
"email = '" & txtemail.Text & "', " & _
"beitrag = '" & chkjbeitrag.Checked & "', " _
& id(lstallesehen.SelectedIndex)

MsgBox(cmd.CommandText)
Name = cmd.ExecuteNonQuery()
If Name > 0 Then
MsgBox("Es wurde ein datensatz geändert")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try

con.Close()

AlleSehen()
End Sub


Private Sub BeendenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BeendenToolStripMenuItem.Click
MsgBox("Erstellt durch Hr. Strub A." & vbCrLf & "Wachgruppe 1")
End Sub

Private Sub ÜberToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÜberToolStripMenuItem.Click
Close()
End Sub

Private Sub txtemail_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtemail.TextChanged

End Sub

Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label9.Click

End Sub

Private Sub txtnatel_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtnatel.TextChanged

End Sub

Private Sub txtname_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtname.TextChanged

End Sub

Private Sub cmdlöschen_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdlöschen.Click
Dim anzahl As Integer
If txtname.Text = "" Then
MsgBox("Bitte einen Datensatz auswählen")
Exit Sub
End If

If MsgBox("Wollen Sie den ausgewählten " & "Datensatz wirklich löschen?", MsgBoxStyle.YesNo) = MsgBoxResult.No Then
Exit Sub
End If

Try
con.Open()
cmd.CommandText = "delete from adressen " & _
"where id = " & id(lstallesehen.SelectedIndex)
'MsgBox(cmd.CommandText)
anzahl = cmd.ExecuteNonQuery()
If anzahl > 0 Then
MsgBox("Es wurde ein Datensatz gelöscht")
End If
Catch ex As Exception
MsgBox(ex.Message)
End Try
con.Close()

AlleSehen()
End Sub
End Class


Es grüssli neuling Andy