在做数据录入的时候
不知道怎么写

[CODE]
新建一个模块
代码为：
'声明变量
Public mycon As New ADODB.Connection
Public myres As New ADODB.Recordset

'连接数据库对象
Public Function openmycon()
'如果数据是打开的就把它关掉
If mycon.State = adStateOpen Then
mycon.Close
End If
'连接数据库的路径
mycon.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=languang;Data Source=."
End Function

Public Function openmyres(ByVal sql As String)
If myres.State = adStateOpen Then
myres.Close
End If
With myres
' 游标 记录集在客户端打开
.CursorLocation = adUseClient
' 动态状态打开
.CursorType = adOpenDynamic

' 用SQL语句打开对象，且是用CMD的文本方法打开
.Open sql, mycon, , , adCmdText
End With
End Function

[/CODE]

[CODE]
程序代码

'查询所有
Private Sub CmdAll_Click()
Call openmycon
Call openmyres("select name as '姓名',sex as '性别',phone as '电话',KFleixing as '客房类型',ydtime as '预订到达时间',bz as '备注' from yuding")
Set xx.DataSource = myres



'删除所选信息
Private Sub CmdShan_Click()
Call openmycon
Call openmyres("delete yuding where ydid='" + Trim(TxtYDID.Text) + "'")
MsgBox ("删除成功！")
End Sub



'添加信息
Private Sub CmdTian_Click()
Dim id1 As String
Dim id As String
If TxtBZ.Text = "" Then
TxtBZ.Text = "无"
End If
'查询预订表里最后一条记录，生成预订号
Call openmycon
Call openmyres("select ydid from yuding")
myres.MoveLast
id1 = myres.Fields(0).Value
id = CInt(id1) + 1
Call openmycon
Call openmyres("insert into yuding values('" + Trim(id) + "','" + Trim(TxtName.Text) + "','" + Trim(TxtSex.Text) + "','" + Trim(TxtPhone.Text) + "','" + Trim(TxtLeiXing.Text) + "','" + Trim(TxtTime.Text) + "','" + Trim(TxtBZ.Text) + "')")
End Sub





'修改信息
Private Sub CmdXiu_Click()
Call openmycon
Call openmyres("update yuding set name='" + Trim(TxtName.Text) + "',sex='" + Trim(TxtSex.Text) + "',phone='" + Trim(TxtPhone.Text) + "',kfleixing='" + Trim(TxtLeiXing.Text) + "',ydtime='" + Trim(TxtTime.Text) + "',bz='" + Trim(TxtBZ.Text) + "' where ydid='" + Trim(TxtYDID.Text) + "'")
MsgBox ("修改成功！")
End Sub
[/CODE]

其中模块中mycon.Open "Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=languang;Data Source=."

引号里的是连接字符串`~换成你自己连接的字符串就可以了