checkbox

[reg]

hi , i´m new in the world of vb.net. I´m using sql server, vb.net
language: my problem is : i have a table "Test" with "Text and Sure"
as row. "Sure" is a bit value. how do i insert "Sure" in the database
with the insert command in vb.net?
Here is the insert command
objSQL ="Insert into Aufträge (AuftragsDatum, Name, Vorname,
StrassePostfach, PLZ, Ort, Telefon," & _
"Bearbeiter, Garantie, ExterneNummer, RechnungsDatum, Auftraggeber,
Tätigkeit, Arbeitsfeld1, Arbeitsfeld2, Arbeitsfeld3," & _
"Angebot, Auftrag, BVName, BVStrasse, BVPLZ, BVOrt, Auftragsumme,
Schlussrechnung, Text) Values (@AuftragsDatum, @Name, @Vorname,
@StrassePostfach, " & _
"@PLZ, @Ort, @Telefon, @Bearbeiter, @Garantie, @ExterneNummer,
@RechnungsDatum, @Auftraggeber, @Tätigkeit, @Arbeitsfeld1, " & _
"@Arbeitsfeld2, @Arbeitsfeld3, @Angebot, @Auftrag, @BVName, @BVStrasse,

@BVPLZ, @BVOrt, @Auftragsumme, @Schlussrechnung, @Text)"
Dim objConn As SqlConnection = New
SqlConnection(ConfigurationSettings.AppSettings("Stoeve"))
Dim objCmd as New SQLCommand(objSQL, objConn)

objCmd.Parameters.Add(New SQLParameter("@AuftragsDatum",
"txtAuftragsDatum.Text"))
objCmd.Parameters.Add(New SQLParameter("@Name",
"txtName.Text"))
objCmd.Parameters.Add(New SQLParameter("@Vorname",
"txtVorname.Text"))
objCmd.Parameters.Add(New SQLParameter("@StrassePostfach",
"txtStrassePostfach.Text"))
objCmd.Parameters.Add(New SQLParameter("@PLZ", "txtPLZ.Text"))
objCmd.Parameters.Add(New SQLParameter("@Ort", "txtOrt.Text"))
objCmd.Parameters.Add(New SQLParameter("@Telefon",
"txtTelefon.Text"))
objCmd.Parameters.Add(New SQLParameter("@Bearbeiter",
ddlMA.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Garantie",
SqlDbType.Bit,1
"Garantie"))
SqlParameter paramGarantie = New SQLParameter("@Garantie",
SqlDbType.Bit,1,"Garantie")
paramGarantie.Value=CBG.Checked
objCmd.Parameters.Add(paramGarantie)
objCmd.Parameters.Add(New SQLParameter("@ExterneNummer",
"txtExterneNummer.Text"))
objCmd.Parameters.Add(New SQLParameter("@RechnungsDatum",
SqlDbType.DateTime,8, "RechnungsDatum"))
objCmd.Parameters.Add(New SQLParameter("@Auftraggeber",
ddlAG.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Tätigkeit",
ddlT.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld1",
ddlA1.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld2",
ddlA2.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Arbeitsfeld3",
ddlA3.SelectedItem.Value))
objCmd.Parameters.Add(New SQLParameter("@Angebot",
SqlDbType.Bit,1,
"Angebot"))
objCmd.Parameters.Add(New SQLParameter("@Auftrag",
SqlDbType.Bit,1,
"Auftrag"))
objCmd.Parameters.Add(New SQLParameter("@BVName",
"txtBVName.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVStrasse",
"txtBVStrasse.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVPLZ",
"txtBVPLZ.Text"))
objCmd.Parameters.Add(New SQLParameter("@BVOrt","
txtBVOrt.Text"))
objCmd.Parameters.Add(New SQLParameter("@Auftragsumme",
SqlDbType.Money,8, "Auftragsumme"))
objCmd.Parameters.Add(New SQLParameter("@Schlussrechnung",
SqlDbType.Money,8, "Schlussrechnung"))
objCmd.Parameters.Add(New SQLParameter("@Text",
"txtText.Text"))
objConn.Open()
objCmd.ExecuteNonQuery()
label1.visible="true"
BindData()
objConn.Close()
label1.text = "Die Datei wurde gespeichert!"
'Response.Redirect("insertAuftrag.aspx")


End Sub
Thanks