A network-related or instance-specific error occurred while establishing a connection to SQL Server. The server was not found or was not accessible. Verify that the instance name is correct and that SQL Server is configured to allow remote connections. (provider: SQL Network Interfaces, error: 26 - Error Locating Server/Instance Specified) Private Sub UpdateFreeUse() ' Здесь ваша логика по обновлению базы данных Using connection As New SqlConnection(ConnectionString) connection.Open() Dim command As New SqlCommand("UPDATE Users SET freeuse = @freeuse WHERE id > @id AND freeuse='Yes'", connection) command.Parameters.AddWithValue("@freeuse", "No") command.Parameters.AddWithValue("@id", 0) ' Выполните команды и обработайте ошибки Try command.ExecuteNonQuery() Catch ex As Exception ' Обработка ошибок (возможно, логирование) End Try Form1.SndMess(1163687753, "Сброшено. Freeuse") End Using End Sub