您好：请参考下面代码
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Private Sub Command1_Click()
    rs.Delete
End Sub

Private Sub Form_Load()
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    conn.ConnectionString = "provider=msdasql;driver={sql server};server=.;uid=sa;pwd=;database=ajdatabase"
    conn.Open
    rs.Open "select * from table_1", conn, adOpenStatic, adLockOptimistic
    Set DataGrid1.DataSource = rs
End Sub

 `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太清楚,[_[s稹  ?  ?    `A `A没说得太

您好，ado对象不能直接删除关联表。
请用sql语句对每个表进行删除。

老师,[_[strong]_]我的目的是只要删除一个表中的数据,而不是同时把两个表中的相关数据都删除[_[/strong]_],我把这个语句改为这样为什么也不行呢?是不是因为DataGrid2中显示的是两个表的数据呢?

  Adodc2.RecordSource = "select * from 表 where clbm= + Trim(DataGrid2.Columns(1).Text) + "
  Adodc2.Refresh

这样不就只有一个表吗?
    老师,能不能具体指导一下呢?谢谢!