Vba neebie needed code cleaned up

code below:

Private Sub CreateTable()
Const strConnection As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Feature Animation\Finance\RMT's\udpate tble Downtime RMT2.mdb;Persist Security Info=False"

Dim cnn As New ADODB.Connection
Dim cmd As New ADODB.Command

cnn.ConnectionString = strConnection
cnn.Open

cmd.ActiveConnection = cnn
cmd.CommandText = "create table tnn1 (a number, b varchar(10))"

cmd.Execute
cnn.Close

End Sub

Private Sub DeleteTable()
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "tnn1"
DoCmd.SetWarnings True
End Sub

Public Function ProdLineUp()
    Dim rsEmployee As Recordset, rsUpdate As Recordset
    Dim qdf As QueryDef
    Dim X As Integer
    Dim strSQL As String
    
    Set rsEmployee = CurrentDb.OpenRecordset("qry_Downtime_Limited_Count_Employee")
    rsEmployee.MoveLast
    rsEmployee.MoveFirst
    
    Set qdf = CurrentDb.QueryDefs("qry_Update")
    
    For X = 1 To rsEmployee.RecordCount
        qdf.Parameters(0) = rsEmployee.Fields("Last_Name")
        Set rsUpdate = qdf.OpenRecordset
        
        
        Call CreateTable
        DoCmd.RunSQL "INSERT INTO tnn1 SELECT Last_Name as a"
        DoCmd.Requery "qry_tnn_append"
        
        Call DeleteTable
        rsUpdate.Close
        rsEmployee.MoveNext
    Next X

    Set rsExport = Nothing
    Set rsTechs = Nothing
    Set qdf = Nothing
    
    MsgBox "Limited Employee is now up to date"
    
End Function

ProdLineUp()

    Dim rsEmployee As Recordset
    Dim rsUpdate As Recordset
    Dim qdf As QueryDef
    Dim X As Integer
    Dim strSQL As String
    
    Set rsEmployee = CurrentDb.OpenRecordset("qry_Downtime_Limited_Count_Employee")
    rsEmployee.MoveLast
    rsEmployee.MoveFirst
    
    Set qdf = CurrentDb.QueryDefs("qry_Update")
    
    For X = 1 To rsEmployee.RecordCount
        qdf.Parameters(0) = rsEmployee.Fields("Last_Name")
        Set rsUpdate = qdf.OpenRecordset
        
        Call DeleteTable
        On Error Resume Next ' use this line before creating table
            If Err.Number = -2147217900 Then
            MsgBox " Table already Exists !"
            End If
        Call CreateTable
            
        
        DoCmd.RunSQL "INSERT INTO tnn1 (a,b) SELECT tbl_Downtime_Production_Count.Last_Name, tbl_Downtime_Production_Count.Production_Name FROM tbl_Downtime_Production_Count WHERE tbl_Downtime_Production_Count.Last_Name=paramLast_  Name;"
        DoCmd.RunSQL "INSERT INTO tbl_tnn1_Complied ( Last_Name, ProdNumber ) SELECT tnn1.a, tnn1.b FROM tnn1;"
        
        rsUpdate.Close
        rsEmployee.MoveNext
        
    Next X

    Set rsUpdate = Nothing
    Set rsEmployee = Nothing
    Set qdf = Nothing
    
    MsgBox "Limited Employee is now up to date"
    
End Function