麻烦帮我看一下以下命令该怎么完善才能正常使用?
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "Excel文件|*.xls" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim nms() As String = {"登录名","端口限制信息"}
For n As Integer = 1 To Sheet.Rows.Count -1
Dim r As Row = Tables("OLT设备用户端口数据表").AddNew()
For m As Integer = 0 To nms.Length - 1
r(nms(m)) = Sheet(n,m).Value
Next
Next
End If