原文件为(frmBF.vb)：

Imports System.Data
Imports System.Data.SqlClient
Public Class frmBF
    Dim dbName As String = ""
    Dim dbPath As String = ""


    Private Sub txtBDName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBDName.TextChanged

        dbName = Me.txtBDName.Text.Trim()
        'Me.txtBDName.Text = "libbook_backup"
    End Sub
    Private Sub txtBDPath_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtBDPath.TextChanged

        dbPath = Me.txtBDPath.Text.Trim()
        'Me.txtBDPath.Text = ""
    End Sub
    Private Sub btnBF_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBF.Click
        If dbName = "" Or dbPath = "" Then
            MsgBox("备份数据库名称或路径不能为空!",MsgBoxStyle.Information, "警告")
        Else
            [size=5][b][color=FF0000]＇在此插入数据库备份代码[/color]    [/b] [/size]   

End If
    End Sub



End Class

说明：已经有数据库连接文件（database.vb）如下：

Imports System.Data
Imports System.Data.SqlClient
Imports System.ComponentModel
Public Class DataBase
    '实现接口IDisposable
    Implements IDisposable
    '数据库连接对象
    Private SqlConn As SqlConnection
    Public Shared sConn As String = "Persist Security Info=False;Integrated Security=SSPI;database=libbook;server=localhost;Connect Timeout=30"
    Public Sub Dispose() Implements System.IDisposable.Dispose
        Dispose(True)
        GC.SuppressFinalize(True)
    End Sub
    Protected Sub Dispose(ByVal disposing As Boolean)
        If disposing <> True Then
            Return
        End If

        If SqlConn Is Nothing = False Then
            SqlConn.Dispose()
            SqlConn = Nothing
        End If
    End Sub

    Public Sub Open()
        If SqlConn Is Nothing = True Then
            '建立数据库连接对象
            SqlConn = New SqlConnection(DataBase.sConn)
            '打开数据库连接
            SqlConn.Open()
        End If
    End Sub
    Public Sub Close()
        '如果数据库连接对象不为空则关闭数据库连接
        If SqlConn Is Nothing = False Then
            SqlConn.Close()
        End If
    End Sub
    Public Function RunSelectSQL(ByVal sSQLString As System.String) As DataView
        Me.Open()
        Dim SqlDS As DataSet = New DataSet
        Dim SqlDA As SqlDataAdapter = New SqlDataAdapter(sSQLString, Me.SqlConn)
        SqlDA.Fill(SqlDS)
        Return SqlDS.Tables(0).DefaultView
    End Function

    Public Function RunDelOrInsSQL(ByVal sSQLString As System.String)
        Me.Open()
        Dim SqlComm As SqlCommand = New SqlCommand(sSQLString, Me.SqlConn)
        SqlComm.ExecuteNonQuery()

    End Function

End Class


各位大哥，小弟刚学．ＮＥＴ，请帮帮忙！！！！

小弟感激涕零！！