关于字符串连接问题(实为数据库连接)

[cedar_yang]

MDIform下面的子form 加载datagrid , Form_Load事件中datagrid绑定rs .
如果在Form_Load事件里面关闭rs 和cn ，子form的datagrid就没有内容显示，我只能在窗口退出时关闭rs 和cn. 但当我不关闭此form同时打开另外一个子form如果有数据库连接时就会出错，显示连接冲突。
求解决!

我的代码：

Private Sub Form_Load()
      
    cn.Open constr
    rs.CursorLocation = adUseClient
    rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = Nothing
    Set DataGrid1.DataSource = rs
    ‘rs.close  这两行不能加，加了datagrid就没有数据
    'cn.close  这两行不能加，
       
End Sub

[worldy]

Private Sub Form_Load()
    cn.CursorLocation = adUseClient
    cn.Open constr

'    rs.CursorLocation = adUseClient
    rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic
'    Set DataGrid1.DataSource = Nothing
    Set DataGrid1.DataSource = rs
    ‘rs.close  这两行不能加，加了datagrid就没有数据
    'cn.close  这两行不能加，  此句应该没有问题，上面那个不能加
     set rs.activateconnection=nothing
End Sub

[cedar_yang]

Private Sub Form_Load() cn.CursorLocation = adUseClient cn.Open constr rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs cn.close set rs.activateconnection=nothing End Sub 我用上面的代码运行程序，MDIform下面的各子form是不会冲突了，但是我的datagrid裡面是空的了。

[worldy]

Private Sub Form_Load()
    cn.CursorLocation = adUseClient
    cn.Open constr

    rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic
    Set DataGrid1.DataSource = rs
    cn.close      
    set rs.activateconnection=nothing
     
    set datagrid1.datasource=rs
End Sub  

[xushuwen1990]

谢谢分享！！辛苦！！

[S4dvr]

很有用处,非常感谢分享

[很好玩]

谢谢分享！！辛苦！！

[libty]

1 2 3 4 5 6 7 8 9 10 11 Private Sub Form_Load() cn.CursorLocation = adUseClient cn.Open constr rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs cn.close set rs.activateconnection=nothing set datagrid1.datasource=rs

[oppo11]

学习了~~~

[zhangxuepiao]

mi也学习学习了

[yyrlyf520]

学习过了 谢谢

[h2000q]

高啊！

[z402736378]

值得我学习学习

[张在兴]

[cs5013]

我发这个回复吧，只是想知道，怎么得积分？

[songshaoyang123456]

Private Sub Form_Load() cn.CursorLocation = adUseClient cn.Open constr rs.Open "select * from aaa", cn, adOpenKeyset, adLockOptimistic Set DataGrid1.DataSource = rs cn.close set rs.activateconnection=nothing set datagrid1.datasource=rs End Sub

[muxin0307]

谢了，很有用，谢谢分享