送分宏替换问题！！！

Question

For i = 1 To 11
Call TestData(No1_ServerName, No1_Uid, No1_Pwd, No1_Database, No1_Table)
Next如何把上面的1替换成 Cstr(i)   ???请高手指教。。

Answer 1

更正：For i = 1 To 11
Call TestData(No1_ServerName, No1_Uid, No1_Pwd, No1_Database, No1_Table)
Next如何把上面的1替换成 i  ???请高手指教。。

Answer 2

就是要测试11个服务器是否都能连通，上面的只是测试一个，如何重复调用11次过程，并且传递的参数都不同。。No1_ServerName, No1_Uid, No1_Pwd, No1_Database, No1_Table
这些是变量，包含着数据库的服务器名，用户名，密码等等信息
就是想用FOR 实现这个效果：Call TestData(No1_ServerName, No1_Uid, No1_Pwd, No1_Database, No1_Table)
Call TestData(No2_ServerName, No2_Uid, No2_Pwd, No2_Database, No2_Table)
Call TestData(No3_ServerName, No3_Uid, No3_Pwd, No3_Database, No3_Table)
Call TestData(No4_ServerName, No4_Uid, No4_Pwd, No4_Database, No4_Table)
Call TestData(No5_ServerName, No5_Uid, No5_Pwd, No5_Database, No5_Table)
Call TestData(No6_ServerName, No6_Uid, No6_Pwd, No6_Database, No6_Table)
Call TestData(No7_ServerName, No7_Uid, No7_Pwd, No7_Database, No7_Table)
Call TestData(No8_ServerName, No8_Uid, No8_Pwd, No8_Database, No8_Table)
Call TestData(No9_ServerName, No9_Uid, No9_Pwd, No9_Database, No9_Table)
Call TestData(No10_ServerName, No10_Uid, No10_Pwd, No10_Database, No10_Table)
Call TestData(No11_ServerName, No11_Uid, No11_Pwd, No11_Database, No11_Table)

Answer 3

可以用Me()
Call TestData(Me(No" & i & "_ServerName), .............

Answer 4

可以用Me()
Call TestData(Me(No" & i & "_ServerName), .............********************提示错误！！！
缺少列表分隔符或）
我加了）还是不行