Vb to data access to add
A little bit more simple, easy to understand.
Text1 and text2 will get added to the d disk 1. Inside the MDB yu yhhk tables and IO

CodePudding user response:

Dim cn As ADODB. Connection

Set the cn=New ADODB. Connection
Cn. The Open ". The Provider=Microsoft Jet. The OLEDB. 4.0; The Data Source=d: \ 1. MDB
"Cn. The Execute "Insert Into yhhk (yu, IO) Values ('" & amp; Text1 & amp; "', '" & amp; Text2 & amp; "')
"Cn. Close
The Set cn=Nothing

If it is a numeric fields, remove the value before and after the single quotation marks,