oleDbexception이 사용자 코드에 의해 처리되지 않았습니다.

Question

디버깅이 시작될 때 데이터 테이블에 추가 된 데이터가 보이지 않습니다. 아무런 오류가 없지만 button1을 누르면 오류 (사용자 코드에 의해 처리되지 않음)가 문자 다음에 닫히지 않는 따옴표가 표시됩니다 문자열 ')'

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim con As OleDbConnection 
    Dim strInsert As String 
    Dim cmdInsert As OleDbCommand 
    Dim vt As Byte, vm As Byte 
    Dim sze As Byte 


    con = New OleDbConnection("Integrated Security=SSPI;Packet Size=4096;Data Source=.;Tag with column collation when possible=False;Initial Catalog=borjara;Use Procedure for Prepare=1;Auto Translate=True;Persist Security Info=False;Provider=SQLOLEDB.1;Workstation ID=ABDI;Use Encryption for Data=False") 



    If RadioButton4.Checked = True Then vt = 0 

    If RadioButton5.Checked = True Then vt = 1 


    If RadioButton6.Checked = True Then vm = 0 
    If RadioButton7.Checked = True Then vm = 1 
    If RadioButton8.Checked = True Then vm = 2 

    If RadioButton9.Checked = True Then szs = 1 
    If RadioButton10.Checked = True Then szs = 0 



    con.Open() 
    strInsert = "insert Into t1(jens) Values (" & DropDownList1.SelectedItem.Text & "')" 
    cmdInsert = New OleDbCommand(strInsert, con) 
    cmdInsert.ExecuteNonQuery()//error is here 
    con.Close() 

    con.Open() 
    strInsert = "insert Into t1(bazsho) Values (" & DropDownList2.SelectedItem.Text & "')" 
    cmdInsert = New OleDbCommand(strInsert, con) 
    cmdInsert.ExecuteNonQuery() 
    con.Close() 

    con.Open() 
    strInsert = "insert Into t1(name and lastname,email,number,address,lenght,wideth,turi,glasstype,glass) Values (" & n & ",'" & TextBox1.Text(+"/" + TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "'," & vt & "," & vm & "," & szs & "')") 
    cmdInsert = New OleDbCommand(strInsert, con) 
    cmdInsert.ExecuteNonQuery() 
    con.Close() 

    TextBox1.Text = "" 
    TextBox2.Text = "" 
    TextBox3.Text = "" 
    TextBox4.Text = "" 
    TextBox5.Text = "" 
    TextBox6.Text = "" 

End Sub 

최종 클래스

Answer 1

처음 두 삽입의 값에는 여는 따옴표가없는 것 같습니다.