ช่วยดู โค้ค คำสั่ง BackUp ให้ผมทีครับว่าผิดอะไร .BACKUP DATABASE Healths TO DISK = 'D:\SQL BACKUP' WITH FORMAT, NAME = 'myBackup'

Dim strSQL As String
        Dim strCon As String

        strCon = "Data Source=.;Initial Catalog=Healths;Integrated Security=True"
        Dim cmdBackup As SqlClient.SqlCommand = New SqlClient.SqlCommand

        Dim conn As SqlConnection = New SqlConnection(strCon)
        conn.Open()
        'SqlConnection1.ConnectionString = strCon
        'SqlConnection1.Open()

        Cursor = Cursors.WaitCursor

        Try
            strSQL = "BACKUP DATABASE Healths "
            strSQL &= "TO DISK = 'D:\SQL BACKUP' "
            strSQL &= "WITH FORMAT, "
            strSQL &= "NAME = 'myBackup'"

            cmdBackup.Connection = conn
            cmdBackup.CommandText = strSQL
            cmdBackup.ExecuteNonQuery()

            MsgBox("Backup OK.")

        Catch ex As Exception
            MsgBox("Error Backup Failed.")

        End Try

        Cursor = Cursors.Arrow

        conn.Close()
        cmdBackup.Dispose()
        cmdBackup = Nothing