Hi

Its not working :

Sub ADOImportFromAccessTable(DBFullName As String, _
TableName As String, TargetRange As Range)

Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
Dim pocz, kon As Date

Set TargetRange = TargetRange.Cells(1, 1)
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
DBFullName & ";"
Set rs = New ADODB.Recordset
pocz = InputBox("Od")
kon = InputBox("Do")
With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek >pocz and koniec<kon", cn, , , adCmdText
TargetRange.CopyFromRecordset rs '
End With
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub

ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)


why ???

mrjoy

Maybe

With rs
.Open "SELECT * FROM " & TableName & _
" WHERE Pocz±tek > " & pocz & " and koniec < #" &
Format(kon,dd-mm-yyyy" &"#, cn, , , adCmdText


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"myrka" <(E-Mail Removed)> wrote in message
news:f03ca8$9tm$(E-Mail Removed)...
> Hi
>
> Its not working :
>
> Sub ADOImportFromAccessTable(DBFullName As String, _
> TableName As String, TargetRange As Range)
>
> Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
> Dim pocz, kon As Date
>
> Set TargetRange = TargetRange.Cells(1, 1)
> Set cn = New ADODB.Connection
> cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
> DBFullName & ";"
> Set rs = New ADODB.Recordset
> pocz = InputBox("Od")
> kon = InputBox("Do")
> With rs
> .Open "SELECT * FROM " & TableName & _
> " WHERE Pocz±tek >pocz and koniec<kon", cn, , , adCmdText
> TargetRange.CopyFromRecordset rs '
> End With
> rs.Close
> Set rs = Nothing
> cn.Close
> Set cn = Nothing
> End Sub
>
> ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
> ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)
>
>
> why ???
>
> mrjoy
>
>
>

"Its not working". What does that mean ?
Error, wrong results, syntax ?
You need to provide more details.

Is the filed really called "Pocz±tek" ?

NickHK

"myrka" <(E-Mail Removed)> wrote in message
news:f03ca8$9tm$(E-Mail Removed)...
> Hi
>
> Its not working :
>
> Sub ADOImportFromAccessTable(DBFullName As String, _
> TableName As String, TargetRange As Range)
>
> Dim cn As ADODB.Connection, rs As ADODB.Recordset, intColIndex As Integer
> Dim pocz, kon As Date
>
> Set TargetRange = TargetRange.Cells(1, 1)
> Set cn = New ADODB.Connection
> cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & _
> DBFullName & ";"
> Set rs = New ADODB.Recordset
> pocz = InputBox("Od")
> kon = InputBox("Do")
> With rs
> .Open "SELECT * FROM " & TableName & _
> " WHERE Pocz±tek >pocz and koniec<kon", cn, , , adCmdText
> TargetRange.CopyFromRecordset rs '
> End With
> rs.Close
> Set rs = Nothing
> cn.Close
> Set cn = Nothing
> End Sub
>
> ADOImportFromAccessTable "c:\Baza.mdb", "Postoje",
> ThisWorkbook.Worksheets("Arkusz2").Cells(1, 1)
>
>
> why ???
>
> mrjoy
>
>
>