如何使用odbc连接到用于vb.net的as400

Dim conn As New OdbcConnection("Driver={AS400 ODBC Driver};System=AS400 Server IP;Uid=Username;Pwd=Password")

Using conn As New OdbcConnection("Driver={AS400 ODBC Driver};System=AS400 Server IP;Uid=Username;Pwd=Password")
    conn.Open()
    ' 进行数据库操作
    conn.Close()
End Using

Using conn As New OdbcConnection("Driver={AS400 ODBC Driver};System=AS400 Server IP;Uid=Username;Pwd=Password")
    conn.Open()
    
    ' 执行查询
    Dim sql As String = "SELECT * FROM TableName"
    Dim command As New OdbcCommand(sql, conn)
    Dim reader As OdbcDataReader = command.ExecuteReader()
    While reader.Read()
        ' 处理查询结果
    End While
    
    ' 执行更新
    Dim updateSql As String = "UPDATE TableName SET ColumnName = Value WHERE Condition"
    Dim updateCommand As New OdbcCommand(updateSql, conn)
    updateCommand.ExecuteNonQuery()
    
    conn.Close()
End Using