代码如下：
SQL = "CREATE TABLE [dbo].[产品入库表] ("
  SQL = SQL & "[name] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & "[price] [numeric](18, 0) IDENTITY (1, 1) NOT NULL ,"
  SQL = SQL & "[number] [numeric](18, 0) IDENTITY (1, 1) NOT NULL ,"
  SQL = SQL & "[datet] [datetime] NOT NULL ,"
  SQL = SQL & "[content] [text] COLLATE Chinese_PRC_CI_AS NOT NULL ,"
  SQL = SQL & ") ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]"
  con.Execute SQL  


Private Sub Form_Load()
    Adodc1.ConnectionString = ConnectionString          '设置ADO控件的连接字符串
    = adCmdText                      '定义CommandType类型
    Adodc1.CursorLocation = adUseClient                 '定义CursorLocation类型
    Adodc1.LockType = adLockPessimistic                 '定义LockType类型
    Adodc1.RecordSource = "select * from 产品入库表"    '定义数据源，构造SQL语句
    Adodc1.Refresh                                      '刷新ADO数据控件
Dim i As Integer
For i = 1 To 6
    Set txtFields(i - 1).DataSource = Adodc1
    txtFields(i - 1).DataField = Adodc1.Recordset.Fields(i).Name
Next i
Set DataGrid1.DataSource = Adodc1
SetButtons True
End Sub


[local]1[/local]

当我输入的时候老报错，想将第一项id改为入库时间可否

还有一个出库表，入库表和出库表如何做相减运算呀，虚心请教

恩，就是这个意思，请教楼主如何实现呀。。

文件发不上去，可否给我提供些源代码参考，谢谢了！！46366190@

版主，大虾们看下，调试不过，谢谢了
Dim strSQL As String
    '查询不能为空
    If Trim(txtName.Text) = "" Then
        MsgBox "查询姓名不能为空！", vbOKOnly + vbExclamation, "警告！"
        '设置鼠标焦点
        txtName.SetFocus
        Exit Sub
    End If
    '获得产品名称的查询条件
    strSQL = "Select * From 产品入库表 Where 名称 like " _
             + "'" + Replace(Trim(txtName.Text), "'", "''", 1) + "%'"
    Adodc1.ConnectionString = ConnectString
    '设置Adodc1的命令类型和记录源
    = adCmdText
    Adodc1.CursorLocation = adUseClient                 '定义CursorLocation类型
    Adodc1.LockType = adLockPessimistic                 '定义LockType类型
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh                                       '刷新Adodc1

能将你的程序发上来或者发给我吗

调试不过，一直提示Adodc1.Refresh 刷新失败 帮忙看下有什么错误
Dim strSQL As String
    '查询不能为空
    If Trim(txtName.Text) = "" Then
        MsgBox "查询名不能为空！", vbOKOnly + vbExclamation, "警告！"
        '设置鼠标焦点
        txtName.SetFocus
        Exit Sub
    End If
    '获得产品名称的查询条件
    strSQL = "Select * From 产品入库表 Where 名称 like " _
             + "'" + Replace(Trim(txtName.Text), "'", "''", 1) + "%'"
      '设置Adodc1的命令类型和记录源
    Adodc1.ConnectionString = ConnectString
    = adCmdText
    Adodc1.CursorLocation = adUseClient                 '定义CursorLocation类型
    Adodc1.LockType = adLockPessimistic                 '定义LockType类型
    Adodc1.RecordSource = strSQL
    Adodc1.Refresh                                       '刷新Adodc1

是我的查询条件设置的错误吗？

提示这步错误  Adodc1.Refresh   '刷新Adodc1