<br><font size=2 face="sans-serif">I have the current code for an on click event:</font>
<br>
<br><font size=2 face="sans-serif">Dim cn As New ADODB.Connection</font>
<br><font size=2 face="sans-serif">Dim rs As New ADODB.Recordset</font>
<br><font size=2 face="sans-serif">Dim strConnectionString As String</font>
<br><font size=2 face="sans-serif">Dim cmdText As String</font>
<br><font size=2 face="sans-serif">Dim fld As ADODB.Field</font>
<br>
<br>
<br><font size=2 face="sans-serif">cn.Provider = "SQLOLEDB"</font>
<br><font size=2 face="sans-serif">cn.Properties("Data Source") = <my server here></font>
<br><font size=2 face="sans-serif">cn.Properties("Initial Catalog") = <my database here></font>
<br><font size=2 face="sans-serif">cn.Properties("User ID") = <my user id is here></font>
<br><font size=2 face="sans-serif">cn.Properties("Password") = <my password is here></font>
<br><font size=2 face="sans-serif">cn.Open</font>
<br>
<br>
<br><font size=2 face="sans-serif">cmdText = "Select * From tblregions"</font>
<br>
<br><font size=2 face="sans-serif">rs.Open cmdText, cn</font>
<br>
<br><font size=2 face="sans-serif">Me.RecordSource = rs.GetRows</font>
<br>
<br><font size=2 face="sans-serif">rs.MoveFirst</font>
<br>
<br><font size=2 face="sans-serif">Do Until rs.EOF</font>
<br><font size=2 face="sans-serif">    MsgBox rs.Fields("Number")</font>
<br><font size=2 face="sans-serif">    rs.MoveNext</font>
<br><font size=2 face="sans-serif">Loop</font>
<br>
<br><font size=2 face="sans-serif">This code allows me to Loop through the recordset and see the values in a message box.</font>
<br>
<br><font size=2 face="sans-serif">Now what I want to do is place the information on a form (continous would be fine for now).</font>
<br>
<br><font size=2 face="sans-serif">If any one can help me with this ADO stuff I would appericate it very much, as I am just now getting to play with it.</font>
<br>
<br><font size=2 face="sans-serif">Thanks!!!</font>
<br>
<br><font size=2 face="sans-serif">rs.Close</font>
<br><font size=2 face="sans-serif">End Sub</font>