UserPath = My.Computer.FileSystem.SpecialDirectories.MyDocuments
        If Not File.Exists(UserPath & "\CallMonitor.xml") Then
            Try
                dtCaller.WriteXml(UserPath & "\CallMonitor.xml", _
                  XmlWriteMode.WriteSchema)
            Catch ex As Exception
                MsgBox(ex.ToString, MsgBoxStyle.Critical)
            End Try
        End If
        Try
            dtCaller.ReadXml(UserPath & "\CallMonitor.xml")
        Catch ex As Exception
            MsgBox(ex.ToString, MsgBoxStyle.Critical)
        End Try

   Public Sub creatTable()
        If dtCallerReady = True Then Exit Sub
        Try
            dtCaller.TableName = "tbCallerID"
            Dim col As DataColumn
 
            col = New DataColumn("Call_ID", Type.GetType("System.Int64"))
            col.AutoIncrement = True
            dtCaller.Columns.Add(col)
 
            col = New DataColumn("DateTimeStart", Type.GetType( _
              "System.DateTime"))
            col.DefaultValue = #1/1/1970#
            dtCaller.Columns.Add(col)
 
            col = New DataColumn("DateTimeEnd", Type.GetType("System.DateTime"))
            col.DefaultValue = #1/1/1970#
            dtCaller.Columns.Add(col)
 
            col = New DataColumn("CallerID", Type.GetType("System.String"))
            col.DefaultValue = ""
            dtCaller.Columns.Add(col)
 
 ...
 
            col = New DataColumn("Direction", Type.GetType("System.Boolean"))
            col.DefaultValue = False
            dtCaller.Columns.Add(col)
 
            dtCallerReady = True
 
        Catch ex As Exception
            myDebug("modDtCaller.creatTable ERROR: " & vbCrLf & ex.StackTrace)
        End Try
 
    End Sub