get data row by row from database

i want take all data from database A, then the data wll insert into database B.

my coding above, data inserted in databse B but not in row above. please help me...

Dim query1 As String = "SELECT * FROM [t005Temporary] "
sqlCom = New SqlCommand(query1, sqlConn)
Dim sqlReader1 As SqlDataReader = sqlCom.ExecuteReader()



sqlReader1.Read()
tarikh += sqlReader1("f005Date")
memo += sqlReader1("f005Memo")
clasify += sqlReader1("f005ClasificationCode")
code2 += sqlReader1("f005Code2")
code3 += sqlReader1("f005Code3")
code4 += sqlReader1("f005Code4")
code5 += sqlReader1("f005Code5")
AccNumber += sqlReader1("f005AccNumber")
AccName += sqlReader1("f005AccName")
Total += sqlReader1("f005Total")
monthYear += sqlReader1("f005MonthYear")

sqlReader1.Close()


Dim que As String = "INSERT INTO [t0011Journal]([f0011Date],[f0011Memo],[f0011ClasificationCode],[f0011Code2],[f0011Code3],[f0011Code4],[f0011Code5],[f0011AccNumber],[f0011AccName],[f0011Total],[f0011MonthYear])VALUES ('" & tarikh & "','" & memo & "','" & clasify & "','" & code2 & "','" & code3 & "','" & code4 & "','" & code5 & "','" & AccNumber & "','" & AccName & "','" & Total & "','" & monthYear & "')"
myDataAdapter = New SqlDataAdapter(que, sqlConn)
DS = New DataSet()
myDataAdapter.Fill(DS, "t0011Journal")