Option Explicit
Dim ws As Workspace
Dim con As Connection
Dim cmd As String

Private Sub Command1_Click()
con.Execute ("insert into abb (name) values (" + Text1.Text + ")")

'cmd = "insert into abb (name) values (" + Text1.Text + ")"
'con.Execute (cmd)
MsgBox ("record saved")
End Sub

Private Sub Form_Load()
Set ws = DBEngine.CreateWorkspace("NewWokspace", "", "", dbUseODBC)
Set con = ws.OpenConnection("connection1", , False, "ODBC;DATABASE=;UID=;PWD=;DSN=aabb")
End Sub