Dim IP As String
 
IP = txt_ip1.Text & "." & txt_ip2.Text & "." & txt_ip3.Text & "." & txt_ip4.Text

 
            If IP <> "" Then
                If txt_von.Text = "" Then txt_von.Text = 0
                If txt_bis.Text = "" Then txt_bis.Text = 0
                If txt_intervall.Text = "" Then txt_intervall.Text = 0
                If txt_day.Text = "" Then txt_day.Text = 0
                Dim sql As String = "UPDATE pc SET IP = " & IP & ", " _
                & "ueberwachung_von = " & txt_von.Text & ", ueberwachung_bis =" & _
                "" & txt_bis.Text & ", " _
                & "intervall = " & txt_intervall.Text & ", wochentage = " & _
                txt_day.Text & " " _
                & "WHERE IP = " & IP & ""
                Dim cmd As New OleDb.OleDbCommand(sql, con)
                cmd.Parameters.Add("@IP", OleDbType.VarChar, 15, "IP").Value = _
                  IP
                cmd.Parameters.Add("@ueberwachung_von", OleDbType.VarChar, 8, _
                "von").Value = txt_von.Text
                cmd.Parameters.Add("@ueberwachung_bis", OleDbType.VarChar, 8, _
                "bis").Value = txt_bis.Text
                cmd.Parameters.Add("@intervall", OleDbType.VarChar, 8, _
                "Intervall").Value = txt_intervall.Text
                cmd.Parameters.Add("@wochentage", OleDbType.VarChar, 13, _
                "Tage").Value = txt_day.Text
                cmd.CommandType = CommandType.Text
                Try
                    cmd.ExecuteNonQuery()
                Catch ex As Exception
                    MsgBox(ex.Message)
                End Try