Dim sql As String = "INSERT INTO tab_leer (Spalte1, Spalte2) " & _
                                "VALUES (VARI1, '222')"
Try
   con.Open()
   cmd.ExecuteNonQuery()
Catch ex As Exception
    MessageBox.Show("ZFHS-TEST011:" & vbCrLf & vbCrLf & ex.Message)
    Exit Sub
End Try