[Easy4ever]

بعد اذنك اخي kslawy

اخوي aftfm

استبدل كودك بهذا الكود

كود :

Dim TextFile As New System.IO.StreamWriter("C:\MyTestFile.txt")
        Dim sSQL As String = String.Empty
        sSQL = "SELECT * FROM tblVIPs"
        Dim Command As New oleDbCommand(sSQL, Con)
        Con.Open()
        Dim Reader As OleDbDataReader = Command.ExecuteReader()
        If Reader.HasRows = True Then
            While Reader.Read()
                If Not Reader.IsDBNull(Reader.GetOrdinal("V_DateBirth")) Then
                    TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetDateTime(Reader.GetOrdinal("V_DateBirth")) & "@" & Reader.GetString(3) & "@")
                Else
                    TextFile.WriteLine(Reader.GetString(1) & "@" & Reader.GetString(3) & "@")
                End If
            End While
            TextFile.Close()
            Con.Close()
        End If