Bueno e probado de varias manera y en un libro salia como probar asi pero me lanza un error "Object reference not set to an instance of an object." el cual me lo da en la linea que pongo con la dos caritas de moelesto...
espero una pronta respuesta....
Dim cn As SqlConnection = New SqlConnection("Data Source=Flia;Initial Catalog=pubs;User Id=sa;Password=0;")
cn.Open()
Dim Ds1 As New DataSet
Dim dtemp1 As DataTable = Ds1.Tables("Employees")

Dim dr1 As DataRow = dtemp1.NewRow()
dr1("FirtsName") = "juan"
dr1("LastName") = "maglieri"
dr1("BirthDate") = #10/17/1984#
dr1("HomeAdrees") = "ve"
dr1("City") = "CA"
dr1("DeptId") = "15"
dtemp1.Rows.Add(dr1)
cn.Close()