Private Sub Command1_Click()
Dim conn As ADODB.Connection
Set conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=SA;Initial Catalog=slave;Data Source=SERVER"
conn.Open
If Text1 <> "" Then
conn.Execute "insert into 表1(字段1) values ( " & Text1.Text & ") "
End If
conn.Close
End Sub
Private Sub Command2_Click()
Text1.Text = ""
End Sub