Option Explicit
Public conn As New ADODB.Connection
Public rs1 As New ADODB.Recordset
Private Sub Command1_Click()
Dim g_sql As String
g_sql = "select state,au_lname,au_fname,city from authors"
If rs1.State = 1 Then rs1.Close
rs1.Open g_sql, conn, 3, 3
rs1.MoveFirst
Do While Not rs1.EOF
Text1.Text = Text1.Text & rs1(0) + Space(5) + rs1(1) + Space(5) + rs1(2) + Space(3) & rs1(3) & Chr(13) + Chr(10)
rs1.MoveNext
Loop
rs1.Close
End Sub
Private Sub Form_Load()
Dim connect_str As String
connect_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=newman;password=newman;"
connect_str = connect_str & "Initial Catalog=pubs;Data Source=itsrv;Connect Timeout=30"
conn.Open connect_str
Text1.Text = " state au_lname au_fname city " & Chr(13) + Chr(10)
End Sub