不知道怎么连接上数据库和录入
里面是个半成品 就差连接跟录入了
text1对应到 故障类型
text2对应到 故障描述
text3对应到 故障处理
希望高手帮忙 谢谢

没有Form1，连接Access可以试用ADO
先在工程->引用中选择
1. Microsoft ActiveX Data Object 6.1 Library
2. Microsoft ActiveX Data Object Recordset 6.0 Library

Dim Conn As New ADODB.Connection, Rs As New ADODB.Recordset
连接数据库
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"
Conn.Execute(StrSQL)    'StrSQL为插入记录语句，Insert into ....
也可以打开记录集进行插入
Rs.Open "Select * from Table_A",Conn,3,2
Rs.AddNew
Rs.Fields(0) = .......
Rs.Fields(1) = ......
......
Rs.Update
Rs.Refresh
Rs.Close

具体直接改改放进里面呗 这么说我有点没明白 以前做过也是稀里糊涂做成的 这次就怎么都不好使了

附件里没有窗体Form1,提供下

有form1窗体啊。

你得把窗体文件 .Frm 那个一起压缩........

这回对了吧。。。。
我之前保存咋没有form呢。。。
额

我是这样做的：
点击［工程］→［部件→点击“Microsoft ADO Data Control 6.0 (OLEDB)”前面的□→点击“确定”
点击工具箱中的ADOData控件→在窗体加入该控件
然后：
Private Sub Form_Activate()   ‘连接数据库  
   Dim s As String
  s = App.Path & "\assart_1.mdb"    ’数据库放在编程文件夹内  
  Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source =" + Chr(34) + s + Chr(34) & ";Jet OLEDB:Database Password=ch3523;"  '打开有密码数据库，密码为“ch3523”
  '"Data Source =" + Chr(34) + s + Chr(34) & ";Persist Security Info=False"  '打开无密码数据库
End Sub

增加记录代码如下：
          Adodc1.Recordset.AddNew
            With Adodc1
               .Recordset("文件名") = Trim$(Text1(0).Text)
               .Recordset("日期") = Trim$(Text1(1).Text)
               .Recordset("存档合号") = Trim$(Text1(2).Text)
               .Recordset("本合序号") = Trim$(Text1(3).Text)
               .Recordset("备注") = Trim$(Text1(4).Text)
               .Recordset.Update
            End With

我研究研究 谢谢先