If SQL_dataset.Tables.Contains(tableName) = True Then
 
                SQL_dataset.Tables(tableName).Clear()
 
            End If
 
 
            Dim sql_command As SqlCeCommand = New SqlCeCommand(SQL)
 
            sql_command.CommandType = CommandType.Text
            sql_command.Connection = sql_connection
 
 
            SQL_Adapter.AcceptChangesDuringFill = True
 
            SQL_Adapter.SelectCommand = sql_command
 
            SQL_Adapter.Fill(SQL_dataset, tableName)

 If SQL_dataset.Tables("files").Rows.Contains(.FullName) = True ....

 
            sql_connection = New SqlCeConnection
            sql_connection.ConnectionString = "Data Source=" & _
              Application.StartupPath & _
"\my_dms_db.sdf;Persist Security Info=False;"