用ado连接数据库用addnew添加一行空记录在这条记录里添上新数据Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim cnStr As String, sqlStr As String
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
'连接access字符串
cnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &...