两个问题

Question

第一个我要同时向两个表里面写如数据 要怎么写
写一个如下那位高手能告诉我要是写两个怎么改动下面的代码
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "FileDSN=crm.dsn;uid=;pwd="
cnn.Open
rst.Open "select * from company", cnn, 1, 3
rst.AddNew
rst.Fields(1) = Trim(date1.Text)
rst.Update第二个问题我建的是mdi窗体 我怎么让其他的窗体在它的里面打开？ 而不是打开的单独窗体 我需要象word打开的那样

Answer 1

1. 分两次添加。
2. 要在mdi里打开的窗体的mdichild属性设置成true.

Answer 2

第一个问题是没有办法在同时对两个标操作。你可以做的就是
Dim cnn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cnn.ConnectionString = "FileDSN=crm.dsn;uid=;pwd="
cnn.Open
rst.Open "select * from company", cnn, 1, 3
rst.AddNew
rst.Fields(1) = Trim(date1.Text)
rst.Update
rst.open "select * from table2",cnn,1,3
rst.addnew
rst.fields(1)=""
rst.update.