Scholars, why? Debug points to this... I'm lost. Thanks
sql = " insert into [sheet1$] (name, age, gender) values('shinjiang', 5, 'male')"
connection1.Execute sql
sql = " insert into [sheet1$] (name, age, gender) values('shinjiang', 5, 'male')"
connection1.Execute sql
VBA Code:
Sub adddata()
Dim connection1 As New ADODB.Connection
Dim data As New databaseclass
Dim sql As String
connection1.Open data.database12
sql = " insert into [sheet1$] (name, age, gender) values('shinjiang', 5, 'male')"
connection1.Execute sql
connection1.Close
Set connection1 = Nothing
End Sub