my_db=src_mysql(dbname='****',
                host='****'
                ,port=****,user='****',password='****')

w = src_tbls(my_db)[1]

library(RODBC)
channel <- odbcConnect("your dsn as character string",
                       uid="****", # Username
                       pwd="****",
                       believeNRows=FALSE)
w <- sqlQuery(channel, "SELECT * FROM YOUR_TABLE")