Private Sub testing()

Dim strConnection As String
Dim conn As New ADODB.Connectio n
Dim rs As New ADODB.Recordset
Dim strSQL As String
'strConnection = "[Provider=MSDAOR A;] {FileDSN=sms } ; [DATABASE=suzrng s1;] UID=suz_order_s ystem; PWD=osy"
strConnection = "Provider= MSDAORA; Driver={Oracle in OraDb10g_home1} ; SERVER=192.168. 68.205; DATABASE=SUZRNG S1; Uid=suz_order_s ystem; Pwd=osy"...