Database

<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

IF EXISTS(SELECT * FROM Assemblers WHERE ID = @id)
  BEGIN
    UPDATE Assemblers SET Name = @name WHERE ID = @id
  END
ELSE
  BEGIN
    INSERT INTO (ID, Name) VALUES (@id, @name)
  END