vb 连另一台电脑的数据库，如果另一台电脑设有密码，用户名密码都知道，该怎么写？

‘这是电脑没有设密码的情况，有密码 那应怎么写？’
Private Sub Command1____Click()
Dim re As New ADODB.Recordset
Dim conn As New ADODB.Connection

mysql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "\192.168.0.180\share" & "\persons.mdb"
conn.Open mysql
re.Open "grade", conn, adOpenKeyset, adLockOptimistic

If re.RecordCount > 0 Then
For i = 1 To re.RecordCount
Combo1.AddItem re.Fields("Number")
re.MoveNext
Next
End If
End Sub

用WNetAddConnection2 API函数建立映射
https://baike.baidu.com/item/WNetAddConnection2/9873856?fr=aladdin

Private Sub Command1____Click()
Dim re As New ADODB.Recordset
Dim conn As New ADODB.Connection

mysql = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & "\192.168.0.180\share" & "\persons.mdb; " & "uid=username; pwd=password"
conn.Open mysql
re.Open "grade", conn, adOpenKeyset, adLockOptimistic

If re.RecordCount > 0 Then
For i = 1 To re.RecordCount
Combo1.AddItem re.Fields("Number")
re.MoveNext
Next
End If
End Sub