VB连接access数据库

Imports System.Data.OleDbPublic Class InsertTest    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim oledb1 As New OleDbConnection        oledb1.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=D:\liang.accdb"        oledb1.Open()        If ConnectionState.Open Then            Dim cmd1 As New OleDbCommand            cmd1.Connection = oledb1            cmd1.CommandText = "Insert into 借书人(姓名,电话)values('" + TextBox1.Text + "'" + ",'" + TextBox2.Text + "')"            cmd1.ExecuteNonQuery()            oledb1.Close()        End If    End SubEnd Class

注意：以下黄色区两边的是双引号

 "Insert into 借书人(姓名,电话)values('" + TextBox1.Text + "'" + ",'" + TextBox2.Text + "')"