在使用vb.net-acess通过dataAdapter对象的insertcommand属性向数据库中添加纪录时出现字符串语法错误的提示，求解答！！

在我使用vb.net-acess通过dataAdapter对象的insertcommand属性向数据库中添加纪录时，
运行的时候老是出现字符串语法错误的提示，不知道哪里出了问题。求解答！！急
十分感谢！！
主要代码：
类：
Shared Function add() As String
Dim insval As String = "'" & stuname & "','" & stusex & "','" & stuhousenum & "','" & stuhousetype & "','" & stuzjtype & "','" & stuzjnum & "','" & stunum & "','" & studata & _
"','" & stuphonenum
Dim oledbins As String = "insert into customer(cusname,cussex, cushousenum, cushousetype, cuszjtype, cuszjnum, cusnum,cusdata,cusphonenum) values(" & insval & ")"
Dim msg As String
Try
conn.Open()
Dim inscom As New OleDbCommand(oledbins, conn)
Dim da As New OleDbDataAdapter
da.InsertCommand = inscom
da.InsertCommand.ExecuteNonQuery()
msg = "记录添加成功"
Catch ex As Exception
msg = ex.Message
Finally
conn.Close()

End Try
Return msg
End Function

添加纪录： If Rad1.Checked = True Then
student.stusex = "男"
Else
student.stusex = "女"
End If
student.stuname = txtname.Text
student.stuhousenum = txthousenum.Text
student.stuhousetype = Txthousetype.Text
student.stuzjtype = Txtzjtype.Text
student.stuzjnum = Textzjnum.Text
student.stunum = Textcusnum.Text
student.studata = Textdata.Text
student.stuphonenum = Textphonenum.Text
Dim msg As String = student.add()
MessageBox.Show(msg, "系统提示", MessageBoxButtons.OK, MessageBoxIcon.Information)