Just surround the CommandText bits with a test on the contents of the text box ...
If Trim(TextBox8.Text).Length > 0 Then
SavInto.CommandText = "UPDATE Table1 SET Place = '" & Trim(ComboBox2.SelectedItem) & "' WHERE FilNum ='" & (TextBox8.Text) & "'"
End If
Note that only your last command will actually be executed as you're overwriting
SavInto.CommandText
each time.
Finally, do some research on SQL Injection and replace the string concatenation with proper parameters ...
http://msdn.microsoft.com/en-us/library/system.data.oledb.oledbcommand.parameters.aspx[
^]
[Edit - an alternative approach that is extensible, avoids SQL injection and uses a single update statement]
Dim tbList As StringBuilder = New StringBuilder("(")
For Each t As Control In Me.GroupBox1.Controls
If TypeOf (t) Is TextBox Then
If Trim(t.Text).Length > 0 Then
tbList.Append(Trim("'" & t.Text) & "',")
End If
End If
Next
If tbList.Length > 1 Then
Dim cmdList As String = tbList.ToString()
If cmdList.EndsWith(",") Then cmdList = Strings.Left(cmdList, cmdList.Length - 1)
cmdList += ")"
SavInto.CommandText = "UPDATE Table1 SET Place = ? WHERE FilNum in " & cmdList
SavInto.Parameters.Add(ComboBox2.SelectedItem)
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
End If