Sub ODBC_GetData()
    Dim oConn, oRS, oFld

    Set oConn = CreateObject("ADODB.Connection")
    Set oRS = CreateObject("ADODB.Recordset")
    oRS.CursorType = 3
'    oConn.ConnectionString = "DSN=FAREL6;UID=sa"
    oConn.ConnectionString = "ODBC;database=FAREL6;DSN=FAREL6;UID=sa;PWD="
    oConn.Open

    oRS.Open "SELECT * FROM STOK46T WHERE ACIKKAPALI<>'K'", oConn
   
    satirNo = satirNo + 1
    For Each oFld In oRS.Fields
        sutun = sutun + 1
        Sheets(1).Cells(satirNo, sutun).Value = oFld.Name
    Next
    While Not oRS.EOF
        satirNo = satirNo + 1
        sutun = 0
        For Each oFld In oRS.Fields
            sutun = sutun + 1
            Sheets(1).Cells(satirNo, sutun).Value = oRS(oFld.Name)
        Next
        oRS.MoveNext
    Wend
    oRS.Close
    Set oRS = Nothing
    oConn.Close
    Set oConn = Nothing
End Sub