有关Excel 中数据的调用（急用）100分相赠！！！

下面这一部分是在 Excel 中的宏运行正常，其目的是在网络Nt02上调取 Excel 中的数据，但在VB中应加入什么语句才能保证其正常运行？
  另外在登陆网络时要求输入用户名和密码，用VB如何实现？？  Private Sub Command1_Click()
Dim dd(4), ee(4) As String
Dim k As Integer
            Workbooks.Open FileName:="\\Nt02\1.CSV"
            Workbooks.Open FileName:="\\Nt02\2.CSV"
            Workbooks.Open FileName:="\\Nt02\3.CSV"
            Workbooks.Open FileName:="\\Nt02\4.CSV"
                
            dd(1) = "1"
            dd(2) = "2"
            dd(3) = "3"
            dd(4) = "4"
            ee(1) = "1.csv"
            ee(2) = "2.csv"
            ee(3) = "3.csv"
            ee(4) = "4.csv"
    For k = 1 To 4 Step 1
      Sheets(dd(k)).Select
      maxr = Sheets(dd(k)).UsedRange.Rows.Count
      maxc = Sheets(dd(k)).UsedRange.Columns.Count
      aa = Cells(maxr, 2).Text
      Windows(ee(k)).Activate
      sheetname = Replace(ee(k), ".csv", "")
      With Sheets(sheetname).UsedRange
      maxr1 = .Rows.Count
      maxc1 = .Columns.Count
      End With
      Cells.Find(What:=aa, After:=ActiveCell, LookIn:=xlValues, _   
       LookAt:=xlPart, SearchOrder:=xlByColumns, _
      SearchDirection:=xlNext, MatchCase:=False).Activate
If ActiveCell.Row = maxr1 Then
  MsgBox "资料试验.xls文件中" & dd(k) & "和" & ee(k) & "的数据不用更新!"
Else
   Range(Cells(ActiveCell.Row + 1, ActiveCell.Column), Cells(maxr1, _
     maxc1)).Copy
      Windows("资料试验.xls").Activate
      Sheets(dd(k)).Cells(maxr + 1, 2).Select
      ActiveSheet.Paste
      maxr2 = Sheets(dd(k)).UsedRange.Rows.Count
      maxc2 = Sheets(dd(k)).UsedRange.Columns.Count
    
For i = 1 To maxr2 - maxr
  Cells(maxr + i, 1) = Mid(Cells(maxr + i, 2), 1, 4) & "-" & Mid(Cells _
  (maxr + i, 2), 5, 2) & "-" & Mid(Cells(maxr + i, 2), 7, 2)
      Next i
    End If
Next k
  MsgBox "数据拷贝工作已经完成了!"
End Sub