Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim str As String
Dim I As Integer
con.Open "Provider=sqloledb;Data Source=SSST41;Initial Catalog=sample;User ID=sa;Password=;"
str = "select name from stutable"
rs.Open str, con
i = 0
While Not rs.EOF
Combo1.List(i) = rs.Fields(0)
rs.MoveNext
i = I + 1
Wend
the combo box is in a form created in a vb(2008) project...i have already connected the vb project to the access db. however, now i'm trying to figure out how to retrieve the information i've stored in the access field to the combo box created earlier.
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim I As Integer
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Asm-isntc-asus\database\mast.mdb;Persist Security Info=False"
str = "select Name from mast"
rs.Open str, con
i = 0
While Not rs.EOF
Combo3.List(i) = rs.Fields(0)
rs.MoveNext
i = I + 1
Wend
the combo box is in a form created in a vb(2008) project...i have already connected the vb project to the access db. however, now i'm trying to figure out how to retrieve the information i've stored in vb to the combo box created earlier.
has helped 1667 users this month