انتقال اطلاعات از VSFlexGrid به List

[ali reza mansoori 2]

من با دستور زیر VSFlexGrid را مقدار دهی کرم

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & adres_file_Sabtnam & ";Persist Security Info=False;Jet OLEDB:Database Password = aaa"
conn.Open
Dim sql As String
sql = "select Nam from Klas"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
Set Vs.DataSource = rs
می خواستم تمام فیلد های یک ستون را به لیست انتقال بدم اگه منو برای انجام این کار راهنمایی کنید ممنون می شم.

[niko2008]

من با دستور زیر VSFlexGrid را مقدار دهی کرم

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & adres_file_Sabtnam & ";Persist Security Info=False;Jet OLEDB:Database Password = aaa"
conn.Open
Dim sql As String
sql = "select Nam from Klas"
rs.Open sql, conn, adOpenStatic, adLockOptimistic
Set Vs.DataSource = rs
می خواستم تمام فیلد های یک ستون را به لیست انتقال بدم اگه منو برای انجام این کار راهنمایی کنید ممنون می شم.

شما Vs. رو مگه از دیتابیس مقدار دهی نمیکنید
List1.additems rs.filds x