How to take backup using SQL server 2005 stored procedure in vb6

 Private cnstr As String = "Provider=SQLOLEDB.1;Password=MyDataBase;   Persist Security Info=True;User ID=xxxx;Initial Catalog=xxxx;Data Source=192.168.1.##"
   Dim cn As New OleDb.OleDbConnection(cnstr)
          Sub Main()
       Try
           OpenConnection()

           Dim sql As New OleDb.OleDbCommand("SELECT '['+ SPECIFIC_SCHEMA + '].[' + SPECIFIC_NAME + ']' AS StoredProcedure,  SPECIFIC_NAME as SPName FROM INFORMATION_SCHEMA.ROUTINES", cn)
           Dim Da As New OleDb.OleDbDataAdapter(sql)
           Dim StoredProcedures As New DataTable("StoredProcedures")
           Dim SP As DataRow
           Dim OutputDirectory As String = CurDir() & "\"
           Dim OutputFile As String

           Da.Fill(StoredProcedures)

           For Each SP In StoredProcedures.Rows
               OutputFile = OutputDirectory & SanitizeFileName(SP("SPName")) & ".sql"
               Call SaveSPToFile(OutputFile, SP("StoredProcedure"), SP("SPName"))
           Next

           CloseConnection()
       Catch ex As Exception
           CloseConnection()
           Debug.Print(ex.ToString)
       End Try
   End Sub

Private Sub SaveSPToFile(ByVal FilePath As String, ByVal StoredProcedure As String, ByVal StoredProcedureName As String)
       Try
           If System.IO.File.Exists(FilePath) Then
               Kill(FilePath)
           End If
           System.IO.File.Create(FilePath)

           Dim sql As OleDb.OleDbCommand = cn.CreateCommand()
           sql.CommandType = CommandType.StoredProcedure
           sql.CommandText = "sp_HelpText '" & StoredProcedure & "'"

           Dim sqlrdr As OleDb.OleDbDataReader = sql.ExecuteReader() 'This is where it errors.....
           Dim wrtr As New System.IO.StreamWriter(FilePath)
           Do While sqlrdr.Read
               wrtr.WriteLine(sqlrdr.GetString(0))
           Loop
           sqlrdr.Close()
           wrtr.Dispose()
       Catch ex As Exception
           CloseConnection()
           Debug.Print(ex.ToString)
       End Try
   End Sub