Article ID: 182351
Article Last Modified on 3/2/2005
Private Sub Command2_Click()
Dim Cn As New Connection
Dim rs As New Recordset
Dim SQL As String
Cn.Open "DRIVER={SQL Server};SERVER=<server_name>;UID=;PWD=;"
SQL = "select * from pubs..jobs"
rs.Open SQL, Cn
MsgBox "Name: " & rs.Fields(0).Name & vbCrLf & "Attribs: " & _
rs.Fields(0).Attributes
rs.Close
Cn.Close
End Sub
Additional query words: kbdse
Keywords: kbprb KB182351