VB Scripts which import records from the 2005 SQL DB

Sub Create_CSV_File()

Dim oCon As ADODB.Connection

Dim oRS As ADODB.Recordset

Set oCon = New ADODB.Connection

oCon.ConnectionString = "Driver={SQL Native Client};Server=Server_Name;Database=DB_Name; Trusted_Connection=yes;"

oCon.Open

Set oRS = New ADODB.Recordset

oRS.ActiveConnection = oCon

oRS.Source = "Select * from table name"

oRS.Open

Worksheets("Sheet1").Range("A1").CopyFromRecordset oRS

oRS.Close

oCon.Close

If Not oRS Is Nothing Then Set oRS = Nothing

If Not oCon Is Nothing Then Set oCon = Nothing

MsgBox("Successfully data imported from the DB")

End Sub