主题：代码求助

有小区信息和楼栋信息两张表，两张表里都有小区名称这一列，小区信息这张表里“小区名称”就叫“小区名称”，“楼栋信息”这张表里“小区名称”叫所在小区，想实现自动输入，"选择小区_Table1"是来自另一张表的SQL查询表，我的代码如下，可不起作用，请高手帮忙看看错在哪里？感谢！

 
此主题相关图片如下：qq截图未命名.png

Dim tbl As Table = Tables("选择小区_Table1")
If tbl.Current IsNot Nothing Then
Dim nm As String
Select nm
    Case "小区信息"
        Tables(nm).Current("小区名称") = tbl.Current("小区名称")
    Case "楼栋信息"
        Tables(nm).Current("所在小区") = tbl.Current("小区名称")
End Select
End If
Forms("选择小区").Close()