vba 时间数据导入到access

下面是VBA代码示例，将时间数据导入到Access：

Sub ImportData()

    Dim con As Object '定义连接对象
    Set con = CreateObject("ADODB.Connection") '创建连接对象
    
    Dim rs As Object '定义记录集对象
    Set rs = CreateObject("ADODB.Recordset") '创建记录集对象
    
    '连接到Access数据库
    con.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Username\Desktop\MyDatabase.accdb"
    
    '打开数据表
    rs.Open "MyData", con, 2, 3
    
    '循环读取Excel中的数据
    Dim i As Integer
    For i = 2 To 10 '假设数据从第二行开始
        '获取时间数据
        Dim timeValue As Date
        timeValue = Range("A" & i).Value
        
        '插入记录到Access中
        rs.AddNew
        rs.Fields("TimeData").Value = timeValue
        rs.Update
    Next i
    
    '关闭记录集和连接
    rs.Close
    con.Close
    
    '释放对象
    Set rs = Nothing
    Set con = Nothing
    
End Sub

上述代码中，假设Excel中的时间数据位于第一列，从第二行开始，数据表名称为"MyData"，时间数据的字段名称为"TimeData"。请根据实际情况修改代码