不能往其他在程序中新建的數据庫加記錄

我做了一個RS232數据采集系統. 將輸入數据存入數据庫. 現在我可以往用vb做的數据庫添加記錄. 而不能往其他在程序中新建的數据庫加記錄. 一加記錄就出錯.錯在以下這一行. 我不知道workspaces(0) 這個0是表示啥意思?
Set db = Workspaces(0).OpenDatabase(dataname)添加記錄程序如下:
Private Sub Timer2_Timer()
Dim i As Integer
Dim f As IntegerSet db = Workspaces(0).OpenDatabase(dataname)
Set td = db.TableDefs(list1.text)
Set rs = td.OpenRecordset
f = rs.Fields.Count - 1
rs.AddNew
For i = 0 To f
    If i < 100 Then
        rs(i) = information(i)
    Else:
        rs(i) = ""
    End If
Next i
rs.Update
rs.close
Adodc1.Refresh
If Adodc1.Recordset.EOF = False Then
    Adodc1.Recordset.MoveLast
End If
DataGrid1.Refresh
End Sub