Database

declare @temp varchar(16)<br />
update Legs<br />
set AnchorBoltTemplate = @temp<br />
where exists<br />
(<br />
<br />
select parts.id from parts<br />
inner join anchortemplate atm on atm.legpartnumber=parts.partnumber<br />
inner join anchortemplate atm2 on atm2.LegPartNumber = parts.partnumber<br />
inner join legs on legs.partID = parts.ID<br />
where @temp = parts.id<br />
)

<br />
    Private Sub IssueBackupCommand(ByVal Server As String, ByVal Database As String, ByVal BackupPath As String)<br />
<br />
        Dim sConnectionString As String<br />
        Dim sCommand As String<br />
        Dim sSql As String<br />
<br />
        Dim connection As New System.Data.SqlClient.SqlConnection<br />
        Dim command As New System.Data.SqlClient.SqlCommand<br />
<br />
        Try<br />
            sConnectionString = "Data Source=" & Server & ";Initial Catalog=" & Database & ";Integrated Security=True"<br />
<br />
            sCommand = BackupPath & "\" & Database & "_" & Format(Now(), "yyyyMMdd") & "_" & Format(Now(), "HHMM") & ".BAK"<br />
            sSql = "BACKUP DATABASE " & Database & " TO DISK = '" & sCommand & "'"<br />
<br />
            With connection<br />
                .ConnectionString = sConnectionString<br />
                .Open()<br />
                With command<br />
                    .Connection = connection<br />
                    .CommandType = CommandType.Text<br />
                    .CommandText = sCommand<br />
                    .ExecuteNonQuery() '<--- Error produced here<br />
                End With<br />
                .Close()<br />
            End With<br />
<br />
        Catch ex As System.Exception<br />
            MessageBox.Show(ex.Message)<br />
        Finally<br />
            command.Dispose()<br />
            command = Nothing<br />
            If connection.State <> ConnectionState.Closed Then connection.Close()<br />
            connection.Dispose()<br />
            connection = Nothing<br />
        End Try<br />
<br />
    End Sub