代码如下
adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\客户信息.mdb;Persist Security Info=False"

Set adors = adocon.Execute("insert into B1(团号) values ('" + Text1.Text + "')")
Set adors = adocon.Execute("insert into B1(团队性质) values ('" + Text2.Text + "')")

access为ID自动编号
我录入以后打开数据库一看 变成两行了
因为我后面还要录入很多行所以才拆开写的 但是怎么可以让他不串行？就是让 团号 团队性质 等等都能在同一行里 同一个ID
在线等 谢谢

是不是可以那个指针呢？
比如查询表 最后一行的ID
然后把指针行移动到下一行 然后定在那 指针不动的话 每一列的输入是不是就不会让 ID增加了？这样就可以让一张单子在一行里了？
但是具体代码有人可以给出来吗？

adocon.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\客户信息.mdb;Persist Security Info=False"

字段有多个，就写多个
sql="insert into B1(团号,团队性质) values ('"
连接起来，可以写成多行，只要拼接正确就行
sql =sql  & Text1.Text & "','" & Text2.Text & "')"

最后执行一下就可以了。
Set adors = adocon.Execute(sql)

---------------------------

如果你第一次用的 insert 命令插入的记录，那么就只能记录下 ID ，然后面的内容，用 updata 命令添加进去。

我用的是access的数据库也可以用sql=么？
主要是我要录入的数据一行有一百多个信息
然后vb代码直接写的话就会溢出了 换一行用换行符不好使 不知道为什么

一行有100多个信息？肯定是你数据库设计有问题。
碰到一条记录要求输入信息量大的情况下，我一般是将信息输入控件（一般是文本框,假设名称为text1）设计成控件数组，数组编号和记录字段编号一致，然后用下述编码即可一次性更新一条记录了
dim rst as new recordset,t as textbox
sql="select * from b1"
rst.Open rstSql, adocon, adOpenKeyset, adLockOptimistic
rst.addnew
for each t in text1
  rst.Fields(t.index)=t
next
rst.update
rst.close

不是一条
怎么说呢 就是一个旅游的客户单 有很多的数据要填
你说的这个我不太理解 是全都改成字符 你的代码的意思是逐个填么？
我都设计好了 就是数据库录入这里卡住了
不知道怎么录入的好 我原来是分表 但是发现查询不好查询
我就是想知道 怎么可以 一行数据每一个格子顺序填入
我现在的运行以后
就成一个斜线了
第一行一个添了个信息 然后第二行第二个填了个信息 第三行第三个 这样斜线似得往右下去了
我就是想知道怎么可以在一行里逐个录入
我把所有的选项跟填写的东西都分别录入一个text号.text里了
就是想挨个能录入数据库就可以了 就是这个问题 >.<
有办法咩？

你就用下面的代码吧，这样“团号”“团队性质”就写在一行了，不过构造这个sql语句是特别复杂的，一不小心就出错了。
Set adors = adocon.Execute("insert into B1(团号,团队性质) values ('" & Text1 & "','" & text2 & "')")
insert into语句用法：INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)，用逗号隔开可以一行写多列的值的。

我不是那个意思 这个是我需要的 你看看
Set adors = adocon.Execute("insert into B1 values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text & "','" & Text105.Text & "','" & Text104.Text & "','" & Text106.Text & "','" & Text9.Text & "','" & Text10.Text & "','" & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text100.Text & "','" & Text101.Text & "','" & Text14.Text & "','" & Text15.Text & "','" & Text16.Text & "','" & Text102.Text & "','" & Text17.Text & "','" & Text18.Text & "','" & Text19.Text & "','" & Text20.Text & "','" & Text21.Text & "','" & Text22.Text & "','" & Text23.Text & "','" & Text24.Text & "','" & Text25.Text & "','" & Text26.Text & "','" & Text27.Text & "','" & Text40.Text & "','" & Text28.Text & "','" & Text29.Text & "','" & Text30.Text & "','" & Text31.Text & "','" & Text32.Text & "','" & Text33.Text & "','" & Text34.Text & "','" & Text35.Text & "','" & Text36.Text & "','" & Text37.Text & "','" & Text38.Text & "','" & Text39.Text & "','" & Text41.Text & "', ‘" & Text46.Text & "','" & Text47.Text & "','" & Text48.Text & "','" & Text49.Text & "','" & Text50.Text & "','" & Text51.Text & "','" & Text52.Text & "','" & Text53.Text & "','" & Text54.Text & "','" & Text55.Text & "','" & Text56.Text & "','" & Text57.Text & "','" & Text58.Text & "','" & Text59.Text & "','" & Text60.Text & "','" & Text61.Text & "','" & Text62.Text & "','" & Text63.Text & "','" & Text64.Text & "','" & Text65.Text & "','" & Text66.Text & "','" & Text67.Text & "','" & Text68.Text & "','" & Text69.Text & "','" & Text70.Text & "','" & Text103.Text & "','" & Text45.Text & "','" & Text71.Text & "','" & Text72.Text & "','" & Text73.Text & "','" & Text74.Text & "','" & Text75.Text & "','" & Text76.Text & "','" & Text77.Text & "','" & Text78.Text & "','" & Text79.Text & "','" & Text80.Text & "','" & Text81.Text & "','" & Text82.Text & "')")
如果这样还能写下么 我这个是逐个写的 但是行爆了 写不下了
所以我才会在前面想加列 但是加完了列以后
如果这么多东西分开写该怎么分开写 我是这个意思

如果是这样写
Set adors = adocon.Execute("insert into B1(团队) values ('" + Text1.Text + "')")
Set adors = adocon.Execute("insert into B1(团队性质) values ('" + Text2.Text + "')")
Set adors = adocon.Execute("insert into B1(客户名称) values ('" + Text3.Text + "')")
Set adors = adocon.Execute("insert into B1(人数) values ('" + Text4.Text + "')")
Set adors = adocon.Execute("insert into B1(陪同) values ('" + Text5.Text + "')")
Set adors = adocon.Execute("insert into B1(免餐宿人数) values ('" + Text105.Text + "')")
Set adors = adocon.Execute("insert into B1(半价餐宿人数) values ('" + Text104.Text + "')")
Set adors = adocon.Execute("insert into B1(联系人) values ('" + Text106.Text + "')")
Set adors = adocon.Execute("insert into B1(联系人电话) values ('" + Text9.Text + "')")
Set adors = adocon.Execute("insert into B1(出发时间) values ('" + Text10.Text + "')")
.
.
.
这么写的话 我打开数据库 一看 就变成了 团队是1行1列 团队性质是2行2列 客户名称是3行3列 以此类推 所以才奇怪到底该肿么搞~

如果真有那么多的话，建议用我在5楼的方法，一个小循环全部录入，如果你非要拼接的话，使用下面的方法，行不会爆的
dim a as string
a="insert into B1 values('" & Text1.Text & "','" & Text2.Text & "','" & Text3.Text & "','" & Text4.Text & "','" & Text5.Text
a=a & "','" & Text105.Text & "','" & Text104.Text & "','" & Text106.Text & "','" & Text9.Text & "','" & Text10.Text & "','"
a=a & Text11.Text & "','" & Text12.Text & "','" & Text13.Text & "','" & Text100.Text & "','" & Text101.Text & "','" & Text14.Text
......
Set adors = adocon.Execute(a)