请勿再发站内信息，不是大家不帮你，而是大家希望的是学习与交流，论坛不是“代码救助站”，不可能你要什么代码大家就完整的给你写出来。如果你真是太急用，学不及了。去找个人花点RMB算了。这样也是对你以后努力学习的激励~~~~~

[em01]

警告楼上的：请不要在技术区灌水，下次发现直接删除。

嗯

自己来解决自己的问题,求人不如求己::
Option Explicit

Dim fileName As String
Private Sub Command1_Click()
'将文本框中的信息添加到列表框中
Dim i As Integer
With ListView1.ListItems.Add()
.Text = Text1(0)
For i = 1 To 4
.SubItems(i) = Text1(i)
Next i
End With
End Sub

Private Sub Command2_Click()
'删除列表框中信息
If ListView1.ListItems.Count > 0 Then
If MsgBox("真的要删除吗？", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
ListView1.ListItems.Remove ListView1.SelectedItem.Index
End If
End If
End Sub

Private Sub Form_Load()
Dim tpStr As String, i As Integer, j As Integer
Me.Caption = "通讯录"
For j = 0 To 4
Text1(j).Text = ""
Next j

fileName = App.Path & "\data.txt"
If Dir(fileName) <> "" Then
'加载数据
Open fileName For Input As #1
Do While Not EOF(1)
With ListView1.ListItems.Add()
For i = 0 To 4
Line Input #1, tpStr
If i = 0 Then
.Text = tpStr
Else
.SubItems(i) = tpStr
End If
Next i
End With
Loop
Close #1
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim i As Integer
Dim tpList As ListItem
'保存数据
Open fileName For Output As #1
For Each tpList In ListView1.ListItems
Print #1, tpList.Text
For i = 1 To 4
Print #1, tpList.SubItems(i)
Next i
Next tpList
Close #1
End Sub

祝你成功，有什么具体问题大家会帮你的。

很好吗,继续努力

Dim con
Dim link, sql As String

Set con = CreateObject("ADODB.Connection")
link = "Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;"
link = link & "Data Source=" & App.Path & "\DATA\UserData.mdb"
sql = "delete * from temp"
con.Open link
rs.Open sql, con, 3, 3 '写入数据库

Set rs = Nothing
con.Close
Set con = Nothing

代码
Option Explicit
private Sub Command1_click()
Data1.Recordset.AddNew. '添加新记录
End Sub

Private Sub Command2_Click()
Data1.UpdateRecord '添加记录后更新
Data1.Recordset.Bookmark=Data Recordset_Last Modified
End Sub

Private Sub Command3_Click
Dim msg As string '删除记录
msg="是否确定要删除记录"&Chr$(10)
msg=msg&Text1.Text
IfMsgBox(msg,17,"删除记录?")<>1 Then Exit sub
on Error Go To Handle
Data1.Recordset.MoveNext
If Data1.Recordset.EOFThen Date1.Recordset.MovePrevious
Handle:
Msg Box"该记录不能删除!!" '原记录不能被删除
End sub

Private Sub Commond_Click()
Dim msgfind As string '查找记录
msgfind=Input Box("请输入要查找的公司名:","查找记录"
If msgfind<>""Then data1.Recordset.FindFirst("[companyName]=msgfind"
End Sub
private Sub Command5_Click()
End
End Sub

谢谢啦