'¼Ò½º ½ÃÀÛ
Private Sub Command1_Click()

    Dim Conn As New ADODB.Connection
    Dim cmd As New ADODB.Command
    Dim rs As New ADODB.Recordset
    Dim strConn As String
    
    'ODBCµå¶óÀ̹ö ¿¬°á
    strConn = strConn & "driver={CUBRID Driver};"
    strConn = strConn & "server=192.168.0.233;"
    strConn = strConn & "port=36300;"
    strConn = strConn & "uid=dba;"
    strConn = strConn & "pwd=;"
    strConn = strConn & "db_name=demodb;"
  
    'OLE DB µå¶óÀ̹ö ¿¬°á
    'strConn = strConn & "Provider = CUBRIDProvider;"
    'strConn = strConn & "Data Source = demodb;"
    'strConn = strConn & "Location = localhost;"
    'strConn = strConn & "User ID = dba;"
    'strConn = strConn & "Password =;"
    'strConn = strConn & "Port = 33000;"
    'strConn = strConn & "Fetch Size = 100;"
    'strConn = strConn & "Persist Security Info = True;"

    Set Conn = New ADODB.Connection
    With Conn
      .ConnectionString = strConn
      .ConnectionTimeout = 30
      .Properties("Prompt") = adPromptNever
      .CursorLocation = adUseServer
      .Open
    End With

    With cmd
        .ActiveConnection = Conn
        .CommandText = "select * from code"
        .CommandType = adCmdText
    End With

    With rs
        .CursorType = adOpenStatic
        .CursorLocation = adUseServer
        .LockType = adLockOptimistic
        .Open cmd
    End With
    
    List1.Clear
    If Not rs.EOF Then rs.MoveFirst
    Do While Not rs.EOF
        List1.AddItem rs.Fields(0)
        rs.MoveNext
    Loop
   
    Conn.Close
    
    Set Conn = Nothing
    Set cmd = Nothing
    Set rs = Nothing
End Sub
'¼Ò½º ³¡