5,172
社区成员




Private Sub Form_Load()
Dim CNN As Object
Dim RSS As Object
Set CNN = CreateObject("ADODB.Connection")
Set RSS = CreateObject("ADODB.Recordset")
CNN.Open "Provider=msdaora;Data Source=PROD;User Id=ABC;Password=ABC123;"
RSS.Open "select * from TBL", CNN, 1, 1
Set Me.Recordset = RSS
RSS.Close
CNN.Close
Set RSS = Nothing
Set CNN = Nothing
End Sub