run time error '424: object required

[tiger123]

i am getting an error in my insert query please help me

Private Sub cmdbt1_Click()

Dim EmployeeName, SystemName, LoginDate, LoginTime, TeamLeadBy, ProjectName, AllocatedWork

'Set txtSampleTextBox = Controls.Add("Forms.TextBox.1", "txtSampleTB")
'Set rst = CreateObject("adodb.recordset")

    server_name = "192.168.1.200"
    Database_Name = "empdetails" ' Enter your database name here
    User_id = "root" ' enter your user ID here
    Password = "bmx1" ' Enter your password here
    source1 = "emp"
   
    Set conn = New ADODB.Connection
   ' Set rst = New ADODB.Recordset

conn.ConnectionString = "DRIVER={MySQL ODBC 5.2 unicode Driver};SERVER=" & server_name & ";UID=" & User_id & _
";PWD=" & Password & ";DATABASE=" & Database_Name & "; Source=" & source1 & ";"
conn.Open
Dim c As ADODB.Connection
Dim r As ADODB.Recordset

Set c = New ADODB.Connection

Dim rw As Integer

c.Open "DSN=emp"

Sql = "Insert into userinfo (employeename,systemname,logindate,logintime,team leadby,projectname,allocatedwork) Values ('" & _
EmployeeName.Value & "', '" &   SystemName.Value & "','& logindate.value & " ','" & logintime.value & "','" & team leadby.value & _
"','" & projectname.value & "','" & allocatedwork.value & "')"


Set r = c.Execute(Sql)
c.Close
     'conn.Close

     Unload Me
    MsgBox "Database Updated!", vbOKOnly, "Update!"
End Sub

employeename(lbl1)

systemname(Label1)

logindate(lbl3)

logintime(lb5)

teamleadby(txtbx)

projectname(txtbx)

allocatedwork(txtbx)

i have used in userfrom

i am trying to insert into the mysql database

please help me out

 

[RoryA]

Cross-posted here. The answer is the same as I gave you there - you do not have controls with those names.