vb连接access编程问题

Question

本人明天急需一个vb程序，主要功能是在局域网里的每台机器运行，将机器名，ip保存到另一台机器上的一个access上，本人已经写好了函数，在做连接access，但是能力有限，特来求助，主要代码如下：
Option Explicit
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As LongPrivate Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
'Return the user's name.
Private Function UserName() As String
Const UNLEN = 256   ' Max user name length.
Dim user_name As String
Dim name_len As Long    user_name = Space$(UNLEN + 1)
    name_len = Len(user_name)
    If GetUserName(user_name, name_len) = 0 Then
        UserName = "<unknown>"
    Else
        UserName = Left$(user_name, name_len - 1)
    End If
End Function
'Return the machinename.
Private Function MachineName() As String
Dim sBuffer As String * 255
If GetComputerName(sBuffer, 255&) <> 0 Then
MachineName = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
Else
MachineName = "(未知)"
End If
End Function
Private Sub Main()
Dim db As Database
Dim rs As Recordset
Dim WS, bt, bt1, bt2, bt3, IPAddress
Set WS = CreateObject("MSWinsock.Winsock")
Set db = OpenDatabase(App.Path + "/ppl.mdb")
Set rs = db.OpenRecordset("ppl")
    
    IPAddress = WS.LocalIP
    bt = Time
    bt1 = Date
    bt2 = UserName()
    bt3 = MachineName需将ipaddress，bt等保存到access的数据库上，大家帮帮忙了。有分的

Answer 1

rs.addnew   　　'添加新记录
rs("BT")=bt     '赋值
rs("BT1")=bt1   '赋值
rs("BT2")=bt2   '赋值
rs("BT3")=bt3   '赋值
rs.update       '写数据库
由于不知道你的数据库中相应的字段名称，所以我就用大写的来表示，楼主可以自己改

Answer 2

对啦，中间再加一句：
rs("IP")=ipaddress

Answer 3

现在报compile error：sub or function not defined,指出 OpenDatabase有问题，WallesCai，朋友，能帮我整合一下吗？只要把那些函数存到数据库和不用form就行了（类似后台编译），我又发出了同样的问题，一共200分，只要弄好就都给你。

Answer 4

这种好事~~不到俺的身上呢~用ado来连接更好哦~~

Answer 5

没有明白你的程序的意思？
这样的程序可以使用winsock控件来代替Set WS = CreateObject("MSWinsock.Winsock")

Answer 6

opendatabase有问题~    引用Microsoft dao *.* Library

Answer 7

如果多用户连接局域网的access
这样access容易损坏那么可以考虑三层结构

Answer 8

online(龙卷风V2.0--再战江湖)你就饶了我吧，光这个我还没搞定呢？要不你编一个，我给你现钱，好吗？我说真话的