-3
Dim NewTableName As String, sConnectString As String
Dim rst, oOstConnection, sQuery As String

sConnectString = "________i have__________"


Set oOstConnection = CreateObject("ADODB.Connection")
 oOstConnection.Open sConnectString

 sQuery = "SELECT " & Me.ColumnName & " from tblContractType"
      Set rst = CreateObject("ADODB.Recordset")

  Set rst = oOstConnection.Execute(sQuery)

   oOstConnection.Close
  Set oOstConnection = Nothing

0 answers in total

Answer this questsion