vba Excel连接数据库

Private Sub CommandButton1_Click()

    Dim cnn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim dataBase As String
    Dim userName As String
    Dim password As String
    Dim DBname As String
    Dim openCommand As String
    dataBase = "PostgreSQL35W"
    userName = "postgres"
    password = "test1234"
    DBname = "testRPA"
    openCommand = "DSN=" & dataBase & ";" & "UID=" & userName & ";" & "PWD=" & password & ";" & "Database=" & DBname
    cnn.Open openCommand
    Dim SQL As String
    '検索
    SQL = "select id from test where ID = '1001'"
    rs.Open SQL, cnn
    While Not rs.EOF
        MsgBox rs!ID
        rs.MoveNext
    Wend
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cn = Nothing
    
    '削除
    SQL = "delete from test where ID = '1001'"
    Call cnn.Execute(SQL)
    
    '修正
    SQL = "update test set NAME = 'name123' where ID = '1002'"
    Call cnn.Execute(SQL)
    
    
    
End Sub

'MySql接続
Private SubmySql_Click()
    Dim conn AsADODB.Connection
    Dim rs AsADODB.Recordset
    Set conn = NewADODB.Connection
    Set rs = NewADODB.Recordset

    conn.ConnectionString = "DSN=mysqlConntion;Server=localhost;DB=zhd_sale_demo;UID=root;PWD=123qwe!@#;OPTION=3;"conn.Open

    rs.Open "select * from `ims_wcy_hand_over`", conn
     While Notrs.EOF
        MsgBoxrs!WEID
        rs.MoveNext
    Wend
    
    rs.Close: Set rs = Nothingconn.Close: Set conn = Nothing
End Sub